folgender Code-Schnipsel ist Teil einer Schleife.
Ich möchte hierbei bei dem fett markierten Teil prüfen ob der Ordner vorhanden ist und, falls nicht zum nächsten Teil der Schleife überspringen.
Leider funktioniert das nicht wie gewünscht. Kann mir jmd den (hoffentlich) offensichtlichen Fehler zeigen?
VG und besten Dank
For i = 1 To x
With Worksheets("Quelle")
a = .Cells(1, x).CurrentRegion.Rows.Count
For b = 1 To a
DokumenteSource = (Sheets("Quelle").Cells(b, x))
If Dokumente = "" Then Exit For
If (Dir(Sheets("Dokumente").Cells(1, x).Value)) = "" Then Exit For
If DokumenteSource = "" Then Exit For
If (Dir(Dokumente) "") Then Exit For
FileCopy DokumenteSource, Dokumente
Next b
End With
Next i