Aha, verstehe. Dann vielleicht so:
Option Explicit
Sub Test()
Dim c(1 To 3) As Variant
'Kriterien - Beispiele
c(1) = 20
c(2) = 511
c(3) = 340
Dim strPath As String
Dim strFile As String
strPath = Range("B3") '"X:\Folder\"
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
'Dateien in Verzeichnis ermitteln
strFile = Dir$(strPath)
Do While strFile <> ""
Debug.Print strFile, MyCompareFunc(strFile, c)
' If MyCompareFunc(strFile, c) Then
' '...
' End If
strFile = Dir$() 'nächste Datei
Loop
Call MsgBox("Fertig.", vbInformation)
End Sub
Private Function MyCompareFunc(Expr As String, CriteriaList() As Variant) As Boolean
Dim i As Long
For i = LBound(CriteriaList) To UBound(CriteriaList)
If Not InStr(1, Expr, CriteriaList(i), vbBinaryCompare) > 0 _
Then Exit Function
Next
MyCompareFunc = True
End Function
Wie genau du das mit dem Testen/Vgl. brauchst, musst du entscheiden - Beispiel: die 20 würde auch auf die 20 im Datum im Dateinamen passen.
|