VBA: Textzellen der richtigen Zelle/Spalte zuordnen

[halihalöle]

Hallo zusammen,

Anbei eine Excel, für die ich unbedingt ein VBA-Makro benötige.
In dem Sheet "Ausgang" ist die Ausgangssituation dargestellt: Spalte A, B, C können unberücksichtigt bleiben (sind fix). Ab Spalte D Zeile 3 soll die Arbeit beginnen. Für jede Zeile sollen die Text-Werte den richtigen Spalten zugeordnet werden (wobei ein Text-Wert immer in der gleichen Zeile bleibt). Also D3, E3, und F3 sind schon richtig zugeordnet. Zelle G3 muss jedoch nach H3. H3 muss nach I3. I3 muss nach M3. Dabei sollte man aber natürlich mit I3 anfangen zu verschieben (dann H3, G3, usw.), da sonst was überschrieben werden würde. Ist Zeile 1 richtig zugeordnet, geht es mit der nächsten Zeile (Zeile 4) weiter (H4 nach N4 usw.). Dies soll solange durchgeführt werden, bis in Spalte A keine Zelle mehr ausgeführt ist (also in anhänger Excel ist in Zeile 7 Schluss).
Das Ergebnis ist im Sheet "Ergebnis" dargestellt.

Vielen vielen Dank vorab!

Viele Grüße!

[Kuwer]

Hallo,

Sub SpaltenZuordnen()
  Dim i As Long, j As Long
  On Error Resume Next
  With Range("A2").CurrentRegion
    For i = 3 To .Rows.Count
      For j = .Cells(i, .Columns.Count + 1).End(xlToLeft).Column To 4 Step -1
        If Len(.Cells(i, j)) Then
          .Cells(i, j).Cut .Cells(i, Application.Match(.Cells(i, j).Value, .Rows(2), 0))
        End If
      Next j
    Next i
  End With
End Sub

Gruß Uwe

[halihalöle]

Geil, hat mir unendlich viel Arbeit erspart!! Vielen Dank!