Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren