ich bin am verzweifeln.
Es muß doch irgendwie möglich sein den Textstring der gesuchten Zeile
so zu zerlegen, dass jeder Wert der durch den Seperator „ ,“ getrennt wird,
in eine Zelle der letzten Zeile eingefügt wird?
Für Hilfe wäre ich Dankbar
Peter
Sub Import_TextZeileVersuch2()
Dim strAct As String, strBegriff As String
Dim intRowCount, intColCount, iRow, iCol, strCol, strWert1, strEnd, strGes
Range("A1").CurrentRegion.ClearContents
intRowCount = Cells(65536, 1).End(xlUp).Row + 1
strBegriff = "Hallo"
Open "ZeilenImport.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strAct
If InStr(1, strAct, strBegriff) Then
'Cells(intRowCount, 1) = strAct 'OK für 1.Zelle
'***Jetzt habe ich die Werte der Zeile mit dem Suchbegriff
'strAct="Hallo,B6,C6,D6,E6,F6,G6"
'Jetzt habe ich den 1.Wert des Strings
' strWert1="Hallo"
strWert1 = Left(strAct, InStr(strAct, ",") - 1)
'jetzt habe ich den verbleibenden String
'strEnd ="B6,C6,D6,E6,F6,G6"
strEnd = Right(strAct, Len(strAct) - InStr(strAct, ","))
'Range(Cells(intRowCount, 1), Cells(intRowCount, 7)) = ?
Exit Do
End If
Loop
Close #1
End Sub