ich habe variierende Bereiche, aus denen ich Summen berechnen möchte. Zur Veranschaulichung habe ich folgende Datei beigefügt
https://www.herber.de/bbs/user/46908.xls
Ich hoffe, Ihr könnt mir helfen.
Grüße
Uwe
Sub Sumption()
Dim Zelle1 As Range, Zelle2 As Range
Set Zelle1 = [A:A].Find("Summe neuer Text gültig")
Set Zelle2 = [A:A].Find("Summe alter Text")
Zelle1.Offset(, 1).FormulaR1C1 = "=Sum(R3C2:R[-1]C2)"
Zelle2.Offset(, 1).FormulaR1C1 = "=Sum(R" & Zelle1.Row + 1 & "C2:R[-1]C2)"
Set Zelle1 = Nothing
Set Zelle2 = Nothing
End Sub
Gruß, NoNet