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:
1393		 Rating:
     
Antwort:
  Ja
Thema:
If Anweisung führt zum Abbruch

Hallo ,

 

ich verzweifel langsam. Bei mir beendet eine If-Abfrage eine Sub.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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