Werte in Spalte auseinanderziehen

[JanReiff]

Hallo,


ich habe eine Tabelle mit 2 spalten und underschiedlichen Werten. In der ersten Spalte habe ich immer nur einen Wert. Die zweite Spalte enthält aber mehrere Werte. Dies möchte ich ändern indem ich nur noch 1 zu 1 Einträge erzeuge.


Vorher:
[
Bild bitte so als Datei hochladen: Klick mich!
]


Ziel:
[
Bild bitte so als Datei hochladen: Klick mich!
]

[Peter]

Hallo,

kopiere den folgenden Code in ein allgemeines Modul der Datei:

Code:

Public Sub In_Spalten_anordnen()
'Code für ein allgemeines Modul
'*********************************
'Autor: Jürgen Hennekes
'*********************************
Dim SPL
Dim lngZQ As Long
Dim lngZZ As Long
Dim intZ As Integer
Dim lngLast As Long

lngLast = Cells(Rows.Count, 1).End(xlUp).Row
lngZZ = 1

For lngZQ = 1 To lngLast
  SPL = Split(Cells(lngZQ, 2), ",")
    For intZ = 0 To UBound(SPL)
      Cells(lngZZ, 4).Value = Cells(lngZQ, 1).Value
      Cells(lngZZ, 5).Value = LTrim(RTrim(SPL(intZ)))
    lngZZ = lngZZ + 1
  Next
Next

End Sub

Das Ergebnis wird in die Spalte D und E geschrieben.

Quelle: http://www.j-hennekes.de/1237040.htm