Zusammenfassung auch mit Unterbrechung

  Dim aktSpiel As String
Dim i As Long
Dim letzteZeileQ As Long
Dim letzteZeileZ As Long
Dim s As Long
Dim summe(1 To 7) As Currency
Dim wsQ As Worksheet  ' Quelle
Dim wsZ As Worksheet  ' Ziel
Dim zeileQ As Long
Dim zeileZ As Long
Set wsQ = ThisWorkbook.Worksheets("Spiele_a")
Set wsZ = ThisWorkbook.Worksheets("Spiele_b")
letzteZeileZ = wsZ.Cells(wsZ.Rows.Count, "A").End(xlUp).Row
If letzteZeileZ > 9 Then
wsZ.Range("A10:J10").Resize(letzteZeileZ - 9).ClearContents
End If
letzteZeileQ = wsQ.Cells(wsQ.Rows.Count, "A").End(xlUp).Row
zeileZ = 10
aktSpiel = wsQ.Range("C10")
For zeileQ = 10 To letzteZeileQ + 1
If wsQ.Cells(zeileQ, "C")  aktSpiel Then
' Spiel hat gewechselt
For s = 1 To 3
wsZ.Cells(zeileZ, s) = wsQ.Cells(zeileQ - 1, s)
Next s
For i = 1 To 7
If i  0 Then
wsZ.Cells(zeileZ, "C").Offset(0, i) = summe(i)
End If
summe(i) = wsQ.Cells(zeileQ, "C").Offset(0, i)
Next i
aktSpiel = wsQ.Cells(zeileQ, "C")
zeileZ = zeileZ + 1
Else
For i = 1 To 7
summe(i) = summe(i) + wsQ.Cells(zeileQ, "C").Offset(0, i)
Next i
End If
Next zeileQ