Thema Datum  Von Nutzer Rating
Antwort
Rot If Schleife
 27.09.2013 10:58:36 Gregor
NotSolved
27.09.2013 11:54:20 Gast16794
Solved
27.09.2013 12:07:54 Gast60668
NotSolved
27.09.2013 12:09:02 Gregor
NotSolved
27.09.2013 14:27:10 Gast78930
NotSolved

Ansicht des Beitrags:
Von:
Gregor		 Datum:
27.09.2013 10:58:36		 Views:
1491		 Rating:
     
Antwort:
  Ja
Thema:
If Schleife

Hallo zusammen,

Ich habe ein problem und bräuchte hilfe. Kennen mich auch noch nicht so gut aus in Makro.

Mein problem ist, dass mein Makro noch bis For Each fDat In fDir geht aber danach gleich zu meiner zweite If-Schleife geht.

Kann mir jemand sagen woran das liegt? Denn die Datei die ich suche existiert ja

 

Danke
 

 

Set fCheckInDat = Nothing
                For Each fDat In fDir
                    If InStr(fDat.Name, .Cells(intZeile, 5)) = 1 And (InStr(fDat.Name, "CheckIn.txt") > 0 Or InStr(fDat.Name, "ChekOut.txt") > 0) Then
                        Set fCheckInDat = fDat
                Exit For
                    End If
            Next fDat
           
             If fCheckInDat Is Nothing Then
                MsgBox ("Keine " & .Cells(intZeile, 5) & "_*_CheckIn.txt oder " & .Cells(intZeile, 5) & "_*_CheckOut.txt Datei in " & Pfad & " gefunden!")
                Exit Sub
            End If

 

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:



  • 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 Schleife
 27.09.2013 10:58:36 Gregor
NotSolved
27.09.2013 11:54:20 Gast16794
Solved
27.09.2013 12:07:54 Gast60668
NotSolved
27.09.2013 12:09:02 Gregor
NotSolved
27.09.2013 14:27:10 Gast78930
NotSolved