Textdatei durchsuchen und in Excel Tabelle ausgeben

 (=18:45:24  D:\temp=)
> for /f "eol=# tokens=8,10" %i in ('findstr "Add reservedip" x:\pfad\DHCP.log') do @echo %i;%j  
## Ergebnis (mit den oben geposteten Beispieldaten als DHCP.log):
<b>10.10.30.124;"INV02905.blabla.de"  
10.10.37.7;"LXK37D4E5.blabla.de"  
10.10.37.9;"INV01693.blabla.de"</b>  
## Das ganze als Excel-Datei im *.csv-Format speichern:
> for /f "eol=# tokens=8,10" %i in ('findstr "Add reservedip" x:\pfad\DHCP.log') do @echo %i;%j >Dhcplog.csv  

(@echo "IP-Adresse";"Inv.-Nr:" & for /f "eol=# tokens=8,10" %i in ('findstr "Add reservedip" x:\pfad\DHCP.log') do @echo %i;%j )>Dhcplog.csv  

Option Explicit
Dim WSHShell, FSO, FileIn, FileOut
Dim Pfad, EingDatei, AusgDatei, ZKette, Zeile, Antwort, i
Const DeleteReadOnly = True
Sub DHCP_einlesen()
Set FSO = CreateObject("Scripting.FileSystemObject")  
Pfad = ActiveWorkbook.Path
If Pfad <> "C:\DHCP" Then  
    Antwort = MsgBox("Die Dateien liegen nicht im richtigen Ordner." & Chr(13) & "Bitte von C:\DHCP\ aus noch einmal probieren!", vbOKOnly, "Falscher Ordner !")  
    End
End If

EingDatei = Pfad & "\DHCP.log"  
AusgDatei = Pfad & "\DHCP_neu.log"  
ZKette = "Dhcp Server 10.101.10.20 Scope 10.10.0.0 Add reservedip"  

If Not FSO.FileExists(EingDatei) Then
  WSHShell.Popup (EingDatei & " wurde nicht gefunden."), 3, "*** Problem ***", 64  
  End
End If

If FSO.FileExists(AusgDatei) Then
  Antwort = MsgBox(AusgDatei & " existiert bereits - soll sie gelöscht werden?", 4 + 32 + 256, "*** Problem ***")  
  If Antwort = vbYes Then FSO.DeleteFile (AusgDatei), True
End If

If Not FSO.FileExists(EingDatei) Then
  WSHShell.Popup (EingDatei & " wurde nicht gefunden."), 3, "*** Problem ***", 64  
  End
End If

Set FileIn = FSO.OpenTextFile(EingDatei, 1)
Set FileOut = FSO.OpenTextFile(AusgDatei, 8, True)
    i = 0
    Do While Not (FileIn.atEndOfStream)
      i = i + 1
      Zeile = FileIn.Readline
      If InStrRev(UCase(Zeile), UCase(ZKette)) > 0 Then FileOut.WriteLine (Zeile)
    Loop

    FileIn.Close
Set FileIn = Nothing
    FileOut.Close
Set FileOut = Nothing

Cells.Select
    Selection.ClearContents
    Range("A1").Select  
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\DHCP\DHCP_neu.log", _  
        Destination:=Range("A1"))  
        .Name = "DHCP_neu"  
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(9, 9, 9, 9, 9, 9, 9, 1, 9, 1, 9, 9)
        .Refresh BackgroundQuery:=False
    End With
    Rows("1:1").Select  
    Selection.Insert Shift:=xlDown
    Range("A1").Select  
    ActiveCell.FormulaR1C1 = "IP-Adresse"  
    Range("B1").Select  
    ActiveCell.FormulaR1C1 = "INV-Nr."  
    Range("A1").Select  
End Sub