Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktivitäten und Stunden eines vorgegebenen Zeitraums zusammenfassen

Gruppe

Vergleich

Problem

Wie kann ich aus einer Stundenliste die Aktivitäten und Zeiten zusammenfassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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