Hey, ich habe es doch mit dem ersten Tipp gemacht, und zwar mit der For-Schleife. Da kann man tatsächlich eine dynamische Anzahl von If-Abfragen gestalten gemäß der Anzahl der Kriterien. Nachdem ich ne Nacht drüber geschlafen habe hats eingeleuchtet :)
Hier der Codeschnipsel: (Hoffe man erkennt es auch ohne den Deklarationenteil, da der eigentliche Code echt lang ist)
iZaehler = 1
If bOpenWorksheet = False Then
bOpenWorksheet = True
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Dateien"
vDir = Dir("C:\Users\User\OneDrive - Hochschule Hannover\Dokumente\Hochschule\Fächer\VBA\Hausaufgabe\Daten\*.csv", vbDirectory)
iDateiOK = 0
Do While Len(vDir)
For iZaehler = 0 To UBound(vArrayKriterien)
If InStr(1, vDir, vArrayKriterien(iZaehler), vbTextCompare) > 0 Then
iDateiOK = iDateiOK + 1
If iDateiOK = UBound(vArrayKriterien) + 1 Then
Cells(iDateiZeile, iDateiSpalte) = vDir
iDateiZeile = iDateiZeile + 1
End If
Else
iDateiOK = 0
End If
Next iZaehler
vDir = Dir
Loop
End If
Danke für eure Hilfe! Ein super Forum mit super Mitgliedern!
|