Liebe Profis,
das script unten löscht mir aus einer Tabelle eine Zeile, falls in Spalte B ein bestimmter Wert vorkommt (noch als "xxxx" definiert)
Wie müsste das script erweitert werden, wenn ich nach mehreren verschiedenen Werten in Spalte B (sagen wir 3-4) suchen will und bei
Treffer ebenfalls diese Zeilen löschen will?
Bedanke mich vorab schon mal für Interesse und eine Idee?
Sub Auswahllöschen ()
Worksheets("Tabelle1").Select
Dim i%
i = 2
Do Until ActiveSheet.Range("B" & i) = ""
If ActiveSheet.Range("B" & i).Value = "xxxxx" Then
ActiveSheet.Rows(i).Delete
i = i - 1
End If
i = i + 1
Loop
End Sub
Grüße
|