Supportnet Computer
Planet of Tech

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.


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.....