Thema Datum  Von Nutzer Rating
Antwort
Rot If Anweisung führt zum Abbruch
01.09.2016 10:28:53 Andre Kaiser
NotSolved
01.09.2016 10:54:42 Gast43607
NotSolved
04.09.2016 23:19:03 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Andre Kaiser
Datum:
01.09.2016 10:28:53
Views:
421
Rating: Antwort:
  Ja
Thema:
If Anweisung führt zum Abbruch

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?

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot If Anweisung führt zum Abbruch
01.09.2016 10:28:53 Andre Kaiser
NotSolved
01.09.2016 10:54:42 Gast43607
NotSolved
04.09.2016 23:19:03 Nobody
NotSolved