Office: Unterschiedliche Spaltenanzahl in einer Zeile umstrukturieren

Guten Tag ich habe folgendes Problem, vielleicht kann mir ja jemand einen Tipp geben. Ich erhalte von einer externen Firma Daten. Das Quellformat ist deshalb leider nicht veränderbar. Die Tabelle ist vereinfacht wie folgt aufgebaut.

Bestell-Nr; Name; Bemerkung
1; Maier; Artikel 1 Artikel 3 Artikel 5
2; Huber;Artikel 1 Artikel 2
3; Müller; Artikel 2 Artikel 4 Artikel 6 Artikel 7 Artikel 8 Artikel 9

Die Artikel sind alle in einer Spalte getrennt durch einen nicht sichtbares Zeichen, dies habe ich mittlerweile erfolgreich in ein Semikolon umgewandelt. Die Tabelle hat nun folgendes Aussehen:

1; Maier; Artikel 1; Artikel 3; Artikel 5
2; Huber;Artikel 1; Artikel 2
3; Müller; Artikel 2; Artikel 4; Artikel 6; Artikel 7; Artikel 8; Artikel 9

Die Spaltenanzahl in der jeweiligen Zeile ist nun variabel.
Ich möchte nun eine Tabelle erzeugen die so aussehen soll:

Bestellnr; Name; Artikel
1;Maier;Artikel1
1;Maier;Artikel3
1;Maier;Artikel5
2;Huber;Artikel1
2;Huber;Artikel2
3;Müller;Artikel 2
3;Müller;Artikel 4
3;Müller;Artikel 6
3; Müller;Artikel7
3;Müller;Artikel8
3;Müller;Artikel9

Ist dies mit Excel möglich, oder komme ich um Access oder ein anderes Datenbankprogramm nicht herum?

Danke im voraus Bernhard

 

Hallo Bernhard,

zugegeben, der Code geht etwas kürzer aber so ist er einigermaßen verständlich ...
Die Ausgangssituation siehst du in Tabelle1, dann rufst du über Alt-F11 das Makro auf und bekommst das Ergebnis in Tabelle2.

 

Hi Bernhard,

Code:

Sub Splitten()
   Dim arrDaten
   Dim lngZeile As Long
   Dim lngZiel As Long
   Dim bytZaehler As Long
   lngZiel = 1
   With Worksheets("Tabelle1")
      For lngZeile = 1 To 3
         arrDaten = Split(.Cells(lngZeile, 1), ";")
         For bytZaehler = 2 To UBound(arrDaten)
            Worksheets("Tabelle2").Cells(lngZiel, 1) = arrDaten(0)
            Worksheets("Tabelle2").Cells(lngZiel, 2) = arrDaten(1)
            Worksheets("Tabelle2").Cells(lngZiel, 3) = arrDaten(bytZaehler)
            lngZiel = lngZiel + 1
         Next bytZaehler
      Next lngZeile
   End With
End Sub

Bis später,
Karin

 

Vielen Dank für beide Ansätze, es hat mit dem ersten Tipp bereits funktioniert. Ich schau mir aber das Splitten Makro auch noch mal an. Waren wirklich sehr gute Hinweise. Find ich toll :)