Hallo Leute,
folgendes Makro:
Dim zähler As Long
With Application.FileSearch
.NewSearch
.Filename = "*.xls"
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = False
If .Execute 0 Then
For zähler = 1 To .FoundFiles.Count
...
sucht im gleichen Ordner nach Dateien mit der Endung .xls. In der Schleife danach soll jede Datei geöffnet werden und **irgendwie** weiterverarbeitet werden.
Allerdings stimmt die Anzahl der gefundenen Dateien nicht immer. Lösche ich z.B. eine Datei, findet das MAkro die Datei immernoch. Beim anschliessendem öffnen der Datei in der Schleife gibts logischerweise einen Fehler.
Wie kann ich diesen Fehler beheben? Entweder muss richtig gezählt werden oder vorm öffnen muss geprüft werden, ob es die Datei überhaupt gibt.
Wer kann mir hierbei helfen, oder weiß, warum nicht richtig gezählt wird!?
Beste Grüße,
Christian