Gruppe
Allgemein
Bereich
Sortieren
Thema
Datensätze in zweitem Blatt anders anordnen
Problem
In Tabellenform angeordnete Datensätze sollen in einem zweiten Blatt in Adressform angeordnet werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Anordnen()
Dim iRow As Integer, iRowT As Integer, iCol As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
For iCol = 1 To 4
With Worksheets("Data2")
iRowT = iRowT + 1
.Cells(iRowT, 1).Value = Cells(iRow, iCol).Value
End With
Next iCol
iRow = iRow + 1
iRowT = iRowT + 1
Loop
End Sub