FOR Schleife wird übersprungen
29.07.2022 11:41:37
Pete
ich habe folgendes Problem:
Mein Code soll die ersten 300 Zellen der Zeile 6 durchlaufen. Diese sind entweder leer oder beinhalten Dateipfade.
Leere werden übersprungen, Dateipfade geöffnet.
Allerdings kommt der Code garnicht so weit. Er überspringt einfach die FOR-Schleife. Wenn ich ihn Stück für Stück ausführe springt er direkt von Zeile 5 auf End Sub.
Sub Dateipfade()
Dim filePath As Variant
Dim searchCell As Range
Dim counter As Long
counter = 1
For counter = 1 To counter = 300 Step 1
Set searchCell = Cells(6, counter)
If searchCell.Value = "" Then
Else
searchCell.Value = filePath
Workbooks.Open Filename:= _
filePath
End If
Next counter
End Sub
Hat jemand eine Idee an was das liegt? Habe die Schleife eig. so aufgebaut wie alle anderen bisher auch.