' Sucht in der "xlm" - Datei nach bestimmten Strings
 
Public Function FindeEintraginDatei(ByRef sDateipfad As String, ByRef sSuche As _
  String, ByRef sSuche2 As String) As String
Dim iTextdatei As Integer
Dim sTextZeile As String
Dim lStart As Long
Dim lEnde As Long
 
 
'Wurde nichts gefunden ist der Rückgabewert ein leerer String
FindeEintraginDatei = "Fehler"
 
On Error GoTo end_function
 
'öffne Datei
iTextdatei = FreeFile
Open sDateipfad For Input As iTextdatei
 
'Schleife bis Datreiende
Do While Not EOF(iTextdatei)
    'Lese eine Zeile aus Datei
    Line Input #iTextdatei, sTextZeile
 
    'Suche Schlüsselwort, Anfürungsstriche werden im String durch "" dargestellt
    lStart = InStr(1, sTextZeile, sSuche & sSuche2)
 
    'Wurde Schlüsselwort gefunden?
    If lStart > 0 Then
        'Das Einlesen des gesuchten Wertes beginnt direkt nach dem Schlüsselwort
        lStart = lStart + Len(sSuche & sSuche2)
        'und endet vor dem nächsten Leerzeichen
        lEnde = InStr(lStart, sTextZeile, Chr(34))
        If lEnde > 0 Then
            'Gesuchter Wert einlesen und Do While Schleife verlassen
            FindeEintraginDatei = Mid(sTextZeile, lStart, lEnde - lStart)
            Exit Do
        End If
    End If
Loop
 
end_function:
    'schließe Datei
    Close #iTextdatei
End Function