Makro löscht nur Teil -> Excel Fehler?
06.08.2003 16:16:28
Joachim
ich habe ein Makro, dass mir Zeilen löschen soll, in denen ein bestimmter Inhalt ist. Hier erst mal das Makro:
Sub test()
Dim Bereich, zelle
Set Bereich = Worksheets("Source").Range("G:G")
For Each zelle In Bereich
If zelle.Value = "SERCON SERVICE-KONZEPTE FUER" Then
zelle.EntireRow.Delete Shift:=xlUp
End If
Next
End Sub
Lasse ich das Makro durchlaufen passiert auch der gewünschte Effekt, aber nicht mit jeder Zeile in der der Inhalt (hier: SERCON SERVICE-KONZEPTE FUER) steht, sonder nur bei der Hälfte aller Fälle (8 von 16).
Lasse ich dan nocheinmal das Makro "drüberlaufen" löscht er wieder ein paar, aber nicht alle (4 von den 8). Das kann ich nun unendlich oft machen und der gewünschte Effect würde irgendwann eintreffen, aber ich frage mich, warum er nicht gleich bei der ersten "Durchfahrt" alle Zeilen mit dem Inhalt löscht.
Hat jemand ne Ahnung? ich bin mit meinem Lateil total am Ende; vielen Dank schon mal im Vorraus und schönen Gruß, Joachim