Hallo,

ich habe ein Probem und komme nicht mehr weiter.

Aufgabe ist es, txt-Dateien nach bestimmten Worten zu durchsuchen und diejenigen txt-Dateien, die diese Worte enthalten aufzulisten.

Die Worte nach denen durchsucht werden soll, sind alle untereinander in Spalten geordnet.

Ich bin jetzt soweit, dass ich alle txt-Dateien, die ein bestimmtes Wort enthalten ausgeben lassen kann.

Allerdings bekomme ich es nicht hin, die Spalte mit den Worten, nach denen gesucht werden soll zu durchlaufen und somit für jedes Wort , jede txt-Datei zu bekommen, die dieses Wort enthält.

Ich hänge hier meinen Code an, vllt kann einer von euch ja helfen.

Sub findWordInTXT()
    
    Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
    Dim AnzFound As Integer, Run As Integer, Temp As Integer
    Dim NameArray(3) As String
    
    AnzFound = 0
    sWord = ActiveSheet.Cells(Run, 1)
    sSearchPath = "C:\*\*\*\*\*.txt"
    sPath = "C:\*\*\*\*\"
    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
                                If (FileName <> NameArray(0)) Then
                                AnzFound = AnzFound + 1
                                NameArray(0) = FileName
                                ActiveSheet.Cells(1, AnzFound + 1) = FileName
                                'ActiveSheet.Cells(3, AnzFound) = InputData
                                ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, AnzFound + 1), Address:= _
                                sPath & FileName, _
                                TextToDisplay:=FileName
                                End If
                            End If
                    Loop
            Close #1
        FileName = Dir
        Loop
    End If
End Sub

Ich hoffe ich konnte es verständlich erklären

Danke schonmal!