ich habe eine VBA geschrieben die mir in einer TXT Datei den Wert die in der Inputbox geschrieben wird, raus sucht und in meiner Excel Überträgt.
Leider habe ich das Problem das aus den TXT Dateien die ich bekomme, die gesuchten Stichwörter nicht gefunden werden.
Aber wenn ich den Inhalt aus der TXT kopiere und in einer neuen TXT übertrage, dann funktioniert es Tadellos.
Ich vermutete das die TXT anders Text Codiert ist. Könnte aber keine Lösung finden.
Meine VBA:
Sub mes_log_data()
Dim ws As Excel.Worksheet
Dim s As String 'String für die InputBox
Dim szSuch As String 'String Suche nach InputBox
On Error GoTo Fehler
Call pfad_MES
'InputBox nach welcher Seriennummer gesucht werden soll
s = InputBox("Seriennummer eingeben:", "Eingabefenster")
If s = "" Then
MsgBox "Keine Eingabe !" & vbCr & vbCr & "Makro-Abbruch !", vbCritical, _
"Hinweis" & ":"
Exit Sub
Else
Range("E1").FormulaR1C1 = s
End If
szSuch = s 'Suche die Zeile mit der Angabe der InputBox
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSourceFile = objFSO.OpenTextFile([AA1], 1)
Set ws = ActiveWorkbook.Sheets(1) 'Zieldatei anlegen / überschreiben
i = 3
Do Until objSourceFile.AtEndOfStream 'Gesammtes TextDok durchgehen
szNextLine = objSourceFile.ReadLine 'Zeile aus Quelldatei einlesen
If InStr(szNextLine, szSuch) Then
ws.Cells(i, 1).Value = szNextLine 'Wert in Zelle schreiben
i = i + 1 'Zähler für nächste Zeile erhöhen / Zeile in Zieldatei schreiben
End If
Loop
Exit Sub
Fehler:
MsgBox "Verbindung zur Anlage nicht möglich.", vbQuestion, "Fehler !"
End Sub