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?