Hallo Zusammen,
folgendes Problem:
Ich lasse innerhalb eines Makros in einer einfachen Schleife prüfen ob in einer bestimmten Zelle ein Wert steht. Falls nicht, soll die gesamte Zeile gelöscht werden.
Ich verwende hierfür folgenden Code:
For z = 2 To last_row
If Worksheets("Sample").Cells(z, 2).Value <> "" Then
Rows(z & ":" & z).Select
Selection.Delete Shift:=xlUp
End If
Next z
Nun habe ich erstmals folgendes phenomen:
Bei jeder ausführung entfernt der Code zuverlässig genau die erste Zeile auf welche die Bedingung zutrifft und läuft dann ohne weitere Aktion oder Fehlermeldung zum Ende des Makros, auch wenn weitere Zeilen dieser Bedingung entsprechen. Setze ich nun Breakpoints in dem Makro, um mir den Code Schritt für Schritt anzuschauen, läuft das Makro einwandfrei durch und macht alles richtig. Ich dachte die Zeiten in denen Timingprobleme eine Rolle psielen sind lange vorbei. ^^
Danke für Eure Hilfe.
|