Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: modMain

Sub Zusammenfassen()
   Dim rng As Range
   Dim iRow As Integer, iCounter As Integer
   iRow = 1
   iCounter = 1
   With Worksheets("Tabelle2")
      .Range("A2:A" & Rows.Count).ClearContents
      Do Until IsEmpty(Cells(iRow, 1))
         If Cells(iRow, 2) >= .Range("F1") And _
            Cells(iRow, 2) <= .Range("F2") Then
            Set rng = .Columns(1).Find(Cells(iRow, 1), _
               lookat:=xlWhole, LookIn:=xlValues)
            If rng Is Nothing Then
               iCounter = iCounter + 1
               .Cells(iCounter, 1) = Cells(iRow, 1)
               .Cells(iCounter, 2) = Cells(iRow, 3)
            Else
               rng.Offset(0, 1) = _
                  rng.Offset(0, 1) + Cells(iRow, 3)
            End If
         End If
         iRow = iRow + 1
      Loop
      .Select
   End With
End Sub

    

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