PDA

Vollständige Version anzeigen : Excel-Zeilen mit bestimmten Werten durch Platzhalter ersetzen


krypt0n77
01.07.2015, 16:33
Hallo zusammen,

Problem: Ich will eine Zeile, in der ein "Bestimmter Wert" (teilweise, nicht nur dieser Wert) steht, durch eine "0" ersetzen.

ich habe folgenden Code mal irgendwo hier im Forum gefunden und minimal angepasst. Dieser löscht allerdings die Zeile mit dem "Bestimmten Wert". Bei mir soll die Zeile, in der der Wert vorkommt, nicht gelöscht werden, sondern der gesamte Inhalt durch eine "0" ersetzt werden.

Option Explicit

Public Sub Find_Methode()

Dim WkSh As Worksheet
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As Variant
Dim iIndx As Integer
Dim lZeile As Long
Dim rZeile As Range

sSuchbegriff = Array("Bestimmter Wert")

Set WkSh = ThisWorkbook.Worksheets("Tabelle1")
WkSh.Range("AA2:AA1500").ClearContents

With WkSh.Columns(1)
For iIndx = LBound(sSuchbegriff) To UBound(sSuchbegriff)
Set rZelle = .Find(What:=sSuchbegriff(iIndx), LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
WkSh.Range("AA" & rZelle.Row).Value = "erhalten"
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
End If
Next iIndx
End With

With WkSh
For lZeile = 2 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh.Range("AA" & lZeile).Value <> "erhalten" Then
If rZeile Is Nothing Then
Set rZeile = .Rows(lZeile)
Else
Set rZeile = Union(rZeile, .Rows(lZeile))
End If
End If
Next lZeile
End With

If Not rZeile Is Nothing Then
rZeile.Delete shift:=xlUp
End If

Set rZeile = Nothing
WkSh.Range("AA2:AA1500").ClearContents

Ich habe leider nur 0,1% Ahnung von VBA, ich hoffe ihr könnt mir weiterhelfen.

Hajo_Zi
01.07.2015, 16:35
ich würde mal vermute
für
rZeile.Delete shift:=xlUp
dies
rZeile=0

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

krypt0n77
01.07.2015, 16:42
Hallo,

Danke für die schnelle Hilfe, hat funktioniert!