Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
Dim regex As New RegExp
AnzFound = 0
sWord = "schwarz"
sSearchPath = "C:\Users\Jakob\Desktop\ProjektArtikelfilter\*.txt"
sPath = "C:\Users\Jakob\Desktop\ProjektArtikelfilter\"
FileName = Dir(sSearchPath)
regex.Pattern = "/\b\d{3}([.\s]?)\d{3}\1\d{2}(?:\1\d{1,2})?\b/"
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If regex.test(InputData) Then
AnzFound = AnzFound + 1
Sheets("Auswertung").Cells(AnzFound, 1) = FileName
Sheets("Auswertung").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub