For-Each Schleife funktioniert nicht
29.08.2013 19:01:29
TooX
folgendes Problem; Ich habe eine For Each Schleife die an eine If Bedingung geknüpft ist. Jedes mal wenn er die If Bedingung durchläuft, springt er automatisch zur Else Bedingung und führt die darin befindliche Aktion aus. Könnte an dem Code eventuell etwas falsch sein?
Dim ProgressMarker As Range
For Each ProgressMarker In Sheets("Sheet").Range("A1:A9999").Cells
If ProgressMarker.Value = "X" Then
ProgressMarker.Select
Selection.Value = ""
Exit For
Else
Range("10:10").Select
Exit For
End If
Next
Wenn er einen Progress Marker gefunden hat soll er diesen selektieren und anschließend eine Zeile unter dem ProgressMarker eine vorher kopierte Zeile einfügen.
Leider springt er immer zur 10 Reihe und fügt dort die vorher kopierte Zeile ein.