Supportnet / Forum / Tabellenkalkulation
Makro Zeilen löschen
Frage
Hallo,
ich habe hier im Forum folgendes Makro gefunden:
Option Explicit
Sub test()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To i
If Cells(n, 1).Value = -1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
Link dahin:
https://supportnet.de/discussion/listmessages.asp?autoid=131096
Das Makro hat die Aufgabe, automatisch Zeilen mit dem Wert -1 in einer bestimmten Spalte zu löschen. Das funktioniert auch soweit. Nur leider Löscht es bei mir nicht alle Zeilen. Wenn 3 Zeilen über einanderstehen werden 2 gelöscht und bei 5 Zeilen werd 3 gelöscht. Ich muss das Makro dann immer mehrmals ausführen und das ist aber schlecht weil es in einem großen Makro mit vielen Sachen eingebunden wird.
vielleicht kann mir wer sagen was verändert werden muss, da mit alle Zeilen mit dem Eintrag -1 gelöscht werden.
Danke schon mal im voraus
Antwort 1 von Guenter
Hallo,
probiere mal diese Makro aus. Ich habe da etwas umgestellt.
Gruß
Günter
probiere mal diese Makro aus. Ich habe da etwas umgestellt.
Option Explicit
Sub test()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = i To 1 Step -1
If Cells(n, 1).Value = -1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
Gruß
Günter
Antwort 2 von Ibue
wunderbar danke danke danke
so funktioniert es.....
so funktioniert es.....