Gruppe
Allgemein
Bereich
Vergleich
Thema
Aktivitäten und Stunden eines vorgegebenen Zeitraums zusammenfassen
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