Makro letzte Zeile
12.04.2002 07:01:24
Georg
mit nachfolgendem Makro lösche ich die Zeile, wenn in der Spalte F "AG" steht.
Das Makro fängt in der ersten Zeile bis zu 30000 an zu suchen und funktioniert.
Kann mir jemand helfen, dass das Makro in der letzten Zeile anfängt, also von unten nach oben.
Const Spalte = "F"
Const Zeilen = "30000"
Const Suchzeichen = "AG"
For x = Zeilen To 1 Step -1
If InStr(Range("F" & x), Suchzeichen) > 0 Then _
Rows(x & ":" & x).Delete Shift:=xlUp
Next x
Das würde den Ablauf beschleunigen.
Ich krieg das selber nicht hin.
Vielen Dank und Gruß; Georg
Anzeige