Ich habe in einer Zelle "Start" stehen, in einer anderen "Ende". Wie bekomme ich in die Zelle wo Ende steht die Summe der Werte zwischen "Anfang" und "Ende". Die Zellen heissen nicht so, und sollen auch keinen bestimmten Namen bekommen.
Hab zur Zeit sowas ähnliches mit ner Gruppierung zwischen beiden:
With Worksheets("Tabelle1").Columns(1)
Set addr = .Find("Anfang", LookIn:=xlValues)
If Not addr Is Nothing Then
rgAnfang = addr.Row + 1
End If
Set addr = .Find("Ende", LookIn:=xlValues)
If Not addr Is Nothing Then
rgEnde = addr.Row - 1
End If
End With
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Group
Worksheets("Tabelle1").Rows(rgAnfang & ":" & rgEnde).Hidden = True
Wie kann ich das irgendwie umschreiben, dass eine Summe erscheint?