ich habe einen Code umgeschrieben der ganz gut funktioniert.
Ich würde aber gerne eine Anpassung vornehmen wollen, bei der ich nicht weiß wie ich das realisieren kann.
Und zwar sollten nur die txt Daten Importiert werden die in einem gewissem Zeitraum stehen.
Der Zeitraum steht in "K11" & "K12"
z.B.:
Von 01.10.2017 (K11)
Bis 05.10.2017 (K12)
Dies ist der Code ohne diese integration.
Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
'Wort nach dem gesucht werden soll
sWord = "Error"
sSearchPath = "C:\" & [J11] & "\*txt"
sPath = "C:\" & [J11] & "/"
FileName = Dir(sSearchPath)
If FileName "" Then
Do While FileName ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Analyse_Alle").Cells(AnzFound, 1) = FileName
Sheets("Analyse_Alle").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub
Danke für eure Hilfe
Gruß
Manu