If Anweisung auslesen
29.09.2021 11:01:57
Elias
ich habe eine Makro, das einen Ordner nach Ordnern durchsucht die eine bestimmte 7-stellige Sachnummer enthalten. Das ganze mache ich so:
Set OFol = fso.GetFolder(Path)
If OFol Is Nothing Then Exit Sub
'Unterverzeichnis durchgehen (Rekursiv)
For Each fol In OFol.SubFolders
If Left(fol.Name, 7) = snr Then
Dateien_suchen fol.ShortPath
Exit Sub
End If
Next fol
Jetzt würde ich gerne die Sachnummern in ein Array speichern, für die kein Ordner gefunden wurde, um sie nach dem Lauf des Markos auszugeben. Das erste was mir dazu eingefallen ist, wäre abzufragen, ob innerhalb der For-Schleife die If-Bedingung mindestens einmal True war. Kennt jemand einen Befehl mit dem das umzusetzen ist?
Vielen Dank im Voraus und liebe Grüße,
Elias