Summe mit variabler Range
17.07.2020 15:25:45
Hannah
Und schönen Nachmittag. Ich hoffe wirklich, einen von euch auch noch freitags Nachmittags zu erreichen...
Ich möchte mit VBA eine Summe bilden, wobei sich Start- & Endzelle verändern.
Gleich bleibt, dass die Startzelle immer rechts neben Start steht und die Endzelle immer eins rechts von Summe.
So sieht mein Makro derzeit aus (das nicht funktioniert)
Sub Variable Summe()
Dim firstRow As Long
Dim lastRow As Long
With Worksheets("Tabelle1")
Set firstRow = .Columns("B").Find(What:="Start")
Set lastRow = .Columns("B").Find(What:="Summe")
End With
lastRow.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(E" & firstRow & ":E" & lastRow & ")"
End Sub
Mein Gedanke war, die Zeile mit firstRow und lastRow auszulesen und in der Summe zu verwenden. Hilfe wäre super, denn dann rettet ihr mich vor einem sehr langen Freitag im Büro. O-O
Alles Liebe
Hannah