Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten einfügen

Daten einfügen
17.09.2008 19:45:56
Jan
Guten Abend,
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


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten einfügen
17.09.2008 19:53:07
Daniel
Hi
so vielleicht:

Sub lesen()
Dim strTxt As String, arrTxt
Open "c:\meinedatei.csv" For Input As #1
cells(4,9).Value = "x"
Do While Not EOF(1)
Line Input #1, strTxt
arrTxt = Split(strTxt, ";")
With Sheets(1)
.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Resize(1, UBound(arrTxt) + 1) = arrTxt
End With
Loop
Close 1
cells(4,9).value = ""
End Sub


Gruß, Daniel

AW: Daten einfügen
17.09.2008 20:06:38
Jan
Danke, aber das funktioniert so nicht - Jan
AW: Daten einfügen
17.09.2008 20:16:28
Daniel
Hi
ersetz mal Cells(4,9) durch Cells(9,4), wahrscheinlich hab ich wieder mal Zeilen mit Spalten verwechselt
Gruß, Daniel
Anzeige
AW: Daten einfügen
17.09.2008 20:18:00
Jan
Hätt ich auch drauf kommen könne.
Vielen Dank - Jan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige