Gruppe
Allgemein
Problem
In Tabellenform angeordnete Datensätze sollen in einem zweiten Blatt in Adressform angeordnet werden.
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