Gruppe
Allgemein
Problem
Wie kann ich aus einer Stundenliste die Aktivitäten und Zeiten zusammenfassen?
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