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
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?
Visual Basic-Quellcode
- Sub Makro1()
- '
- ' Makro1 Makro
- ' Makro am 24.02.2010 von a134029 aufgezeichnet
- '
- ' Tastenkombination: Strg+ö
- '
- Sub füllen()
- For i = 2 To 305
- If Sheets("db").Cells(i, 1) <> "" Then
- For x = 2 To 151
- aa = Sheets("db").Cells(i, x)
- If aa <> "" Then
- ll = ll + 1
- Sheets("neu").Cells(ll, 1) = Sheets("db").Cells(i, 1)
- Sheets("neu").Cells(ll, 2) = aa
- End If
- Next
- End If
- Next
- End Sub
Vielen Dank für die Hilfe und Gruß
Jörg