Es soll ein bestimmter Bereich nach einem bestimmten Zeichen
durchsucht werden.
Alle Zeilen, die dieses Zeichen beinhalten, sollen gelöscht
werden.
Const Spalte = "A"
Const Zeilen = "1000"
Const Suchzeichen = "."
Sub ZeilenLöschen()
For x = Zeilen To 1 Step -1
If InStr(Range("A" & x), Suchzeichen) > 0 Then _
Rows(x & ":" & x).Delete Shift:=xlUp
Next x
End Sub
|
