ich habe einen Code hier im Forum gefunden der nahezu alles bietet was ich brauche. Habe es auch soweit anpassen können das es mit meiner txt passt.
Ich ich aber möchte und leider nach Tagerlanger suche und Versuche, nicht hinbekommen habe.
Ich möchte das sich ein Fenster öffnet in dem man die txt Dateien auswählen kann (können schon mal 100 txt Dateien sein).
Hier mal der Code:
Sub Suche_in_TXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
sWord = "Failed" 'Suchwort
sSearchPath = "C:\Users\xxxx\*.txt"
sPath = "C:\Users\xxxx\"
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 (sWord) gefunden
AnzFound = AnzFound + 2 'in jeder Zeile Schreiben (2 jede zweite)
Sheets("Analyse_Alle").Cells(AnzFound, 1) = FileName '1 = Spalte A
Sheets("Analyse_Alle").Cells(AnzFound, 2) = InputData '2 = Spalte B
End If
Loop
Close #1
FileName = Dir
Loop
End If
End Sub