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