Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub Zusammenfassen()
   Dim wks As Worksheet
   Dim var As Variant
   Dim iRow As Integer, iRowT As Integer, iCounter As Integer
   Dim iCol As Integer, iPlus As Integer
   iRowT = 2
   For iCol = 2 To 1 Step -1
      Set wks = Worksheets("200" & iCol)
      iRow = 3
      Do Until IsEmpty(wks.Cells(iRow, 1))
         var = Application.Match(wks.Cells(iRow, 1), Columns(1), 0)
         If IsError(var) Then
            iRowT = iRowT + 1
            var = iRowT
         End If
         Cells(var, 1).Value = wks.Cells(iRow, 1).Value
         Cells(var, 2).Value = wks.Cells(iRow, 2).Value
         Cells(var, 3 + iPlus).Value = wks.Cells(iRow, 3).Value
         iRow = iRow + 1
      Loop
      iPlus = iPlus + 1
   Next iCol
End Sub

    

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