AW: daten importieren
06.01.2006 15:05:19
volker
hallo
du könntest aber auch die datei gleich im makro lesen und nur die werte übernehmen di für dich relevant sin . zB. so:
Sub import()
zeile = 1
Open "c:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, textzeile
If InStr(textzeile, "Name") Then Cells(zeile, 1) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If InStr(textzeile, "Vorname") Then Cells(zeile, 2) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If InStr(textzeile, "Straße") Then Cells(zeile, 3) = Mid(textzeile, InStr(textzeile, ":") + 1, Len(textzeile))
If textzeile = "" Then zeile = zeile + 1
Loop
Close #1
End Sub
Dateiname test.txt mußt du natürlich ändern.
gruß volker.