Hallo ,
ich verzweifel langsam. Bei mir beendet eine If-Abfrage eine Sub.
For Each Zelle In Range(Suchspalte & i + 1, Suchspalte & "1500")
...
...
If Dir("F:\AAA Projekte\" & JahrPfad & "\" & Projektnummer & "\" & Projektnummer & "MW01*" & ".xls") <> "" Then
Range("A" & Einfügezelle).Font.ColorIndex = 10
End If
If Dir("F:\AAA Projekte\" & JahrPfad & "\" & Projektnummer & "\" & Projektnummer & "MW01*" & ".xlsx") <> "" Then
Range("A" & Einfügezelle).Font.ColorIndex = 10
End If
...
...
If Dir("F:\AAA Projekte\" & JahrPfad & "\" & Projektnummer & "\Foto*\") <> "" Then
Range("B" & Einfügezelle).Font.ColorIndex = 10
End If
....
....
....
next
Ich möchte nur abfragen ob es einen Unter-Ordner mit dem Namen Foto gibt.
Die ersten beiden If-Abfragen laufen durch. Die 3. Abfrage beendet das Sub bei Ausführung der If-Abfrage.
Die darauf folgenden Anweisungen werden nicht mehr aufgerufen.
Wieso?
|