Set FS = CreateObject("Scripting.FileSystemObject")
Set Folder = FS.GetFolder("D:\Nutzer1\Versionen_TXT")
For Each File In Folder.Files
If File.Name Like "*.txt" Then
iFile = FreeFile
sFile = "D:\Nutzer1\Versionen_TXT\" & File.Name
sSearchSuchbegriff = Sheets("Tabelle1").Cells(4, 2)
sSearchSeriennummer = Sheets("Tabelle1").Cells(8, 2)
maschinenname = File.Name
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
positionSuchbegriff = InStr(sTxt, sSearchSuchbegriff)
If positionSuchbegriff Then
positionSeriennummer = InStr(sTxt, sSearchSeriennummer)
If positionSeriennummer And (positionSeriennummer - positionSuchbegriff) < 35 Then
i = i + 1
Sheets("Tabelle1").Cells(11 + i, 1) = maschinenname
Exit Do
End If
End If
Loop
Close iFile
End If
Next