Makro Löschen erweitern...
03.02.2005 13:23:35
Bettina
ich habe folgenden funktionierenden Code:
Sub weg_damit_1()
Dim i As Integer
Dim n As Integer
On Error GoTo Errorhandler
Application.ScreenUpdating = False
i = Worksheets("Daten_für_Löschen_1").Range("A65536").End(xlUp)
For n = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If ActiveSheet.Cells(n, 1).Value = i Then
ActiveSheet.Rows(n).Delete
End If
Next n
Application.ScreenUpdating = True
Exit Sub
Errorhandler:
Application.ScreenUpdating = True
End Sub
Die Variable i ist der Wert der letzten Zelle in der Tabelle "Daten_für_Löschen_1". Da sind nun aber noch mehrere Werte. Frage:
Wie muss ich mein Makro erweitern, dass er nach Durchlauf der For n Schleife in der Tabelle "Daten_für_Löschen_1" eine Zelle nach oben geht und dann mit dem neuen Wert die For n Schleife wieder durchläuft, so lange bis er Ax, A9, A8..... A1 inklusive abgearbeitet hat?
Hoffe es ist verständlich.
Grüßle
Bettina