Daten einfügen
17.09.2008 21:45:56
Jan
Rudi hat mir heute bereits mit unten stehenden Makro geholfen.
Meine Frage nun - Wie lautet der Befehl, damit die Daten erst ab Zelle "D10" eingefügt werden ?
Danke - Jan
Sub lesen()
Dim strTxt As String, arrTxt
Open "c:\meinedatei.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, strTxt
arrTxt = Split(strTxt, ";")
With Sheets(1)
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, UBound(arrTxt) + 1) = arrTxt
End With
Loop
Close 1
End Sub
Anzeige