Clever-Excel-Forum

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!
]

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

JanReiff

Peter