Hallo Zusammen,

ich bekomme eine CSV-Datei in der in einer Spalte mehrere Einträge enthalten sind.

tabelle - db
ID;HOST;DB
4166;DUNE;ASMTDB24,ZENTEST,ZENTRC,ZENTST1,ZENTT90

ich möchte die Daten aus der Spalte DB alle unter einander schreiben.

tabelle - neu
ID;HOST;DB
4166;DUNE;ASMTDB24
4166;DUNE;ZENTEST
4166;DUNE;ZENTRC
4166;DUNE;ZENTST1
4166;DUNE;ZENTT90

Hier für habe ich ein Script aber leider fiunktioniert es nicht, kann mir einer helfen?




Vielen Dank für die Hilfe und Gruß

Jörg

Vorne weg 2 Anmerkungen:
1. Deklariere mal Deine Variablen innerhalb der Prozedur. Hier hilft es wenn man an den Kopf des Moduls Option Explicit schreibt bzw. dies am Besten im VBA-Editor unter Extras-Optionen setzt.
2. Gewöhne Dir an auch zu sagen welche Eigenschaft eines Objectes Du nutzen willst. VBA macht es einem da augenscheinlich einfach aber man solltes es trotzdem machen. Statt Sheets("neu").Cells(ll, 1) Sheets("neu").Cells(ll, 1).value
Zu Deinem eigentlichen Problem:
Die CSV-Datei liegt in Excel schon als Excel-Tabelle vor oder?
So wie ich das sehe schreibst Du folgendes:
Herkunftzeile
4166 Dune ASMTDB24 ZENTEST ....
Ergebnis sollte bei Dir zur Zeit so aussehen:
4166 Dune
4166 ASMTDB24
4166 ZENTEST
....

Wenn Du nur 2 Spalten beschreibst, gibt es auch nur die Daten in 2 Spalten. Du willst Doch, dass es so aussieht:
4166 Dune ASMTDB4
4166 Dune ZENTEST
....
Dann musst Du dem Programm dies auch sagen.

Achte auch darauf, dass Du ggf. an das Limit von Excel herankommst. Zur Zeit bewegt sich Deine Zieltabelle so bis zu 50.000 Zeilen. Excel bis 2003 kann nur 65.536 Zeilen verarbeiten.

PS. Ich selber würde dies wahrscheinlich eher über einen direkten Zugriff auf die Quell-Datei lösen, in dem ich die Datei Zeilenweise auslese, dabei zerlegen un die einzelnen Werte direkt in die ExcelDatei schreiben.