Daten aus csv Tabelle per VBA in aktive Zelle einer Exceltab. kopi

05/12/2008 - 12:20 von Axel Clauß | Report spam
Hallo NG,
ich weiß nicht weiter...
Ich möchte aus einer csv-Datei Daten in bestimmte Zellen kopieren. Ich wàhle
in der Zeiltabelle eine Zelle aus. In diese soll dann der Inhalt einer Zelle
aus der csv-Datei kopiert werden. In die Zelle zwei Zeilen darunter dann der
Wert aus einer anderen Zelle in der csv-Datei. Meine csv-Datei sieht so aus:
Verladetag Team Touren Verladen
01.12.2008 1 22 9849
01.12.2008 2 15 7026
Hier mein Makro(so wie ich mir das gedacht habe):
Sub lesenschreiben()
Dim datum1 As String
Dim team1 As String
Dim anztour1 As Integer
Dim verladen1 As Integer

ChDir "I:\vs\Analyse_CSV"
Workbooks.Open Filename:="I:\vs\Analyse_CSV\export2.csv"


datum1 = Range("A2")
team1 = Range("B2")
anztour1 = Range("C2")
verladen1 = Range("D2")
ActiveWindow.Close
Sheets("Team 1").Select
So, und jetzt weiß ich nicht weiter.
Kann mir da jemand helfen?
Gruß Axel
 

Lesen sie die antworten

#1 Andreas Killer
05/12/2008 - 15:14 | Warnen spam
Axel Clauß schrieb:

Ich möchte aus einer csv-Datei Daten in bestimmte Zellen kopieren. Ich wàhle
in der Zeiltabelle eine Zelle aus. In diese soll dann der Inhalt einer Zelle
aus der csv-Datei kopiert werden. In die Zelle zwei Zeilen darunter dann der
Wert aus einer anderen Zelle in der csv-Datei. Meine csv-Datei sieht so aus:


CSV und Code sehen auf den ersten Blick soweit okay aus.

Sheets("Team 1").Select
So, und jetzt weiß ich nicht weiter.


Wenn Du Deine Daten aus der Zelle gelesen hast, ala
datum1 = Range("A2")
dann kannst Du sie andersrum in Deine Zelle schreiben, ala
Range("A2") = datum1

Und was weißt Du jetzt nicht???

Andreas.

Ähnliche fragen