VBA: Teilergebnis mit used Range
17.12.2021 16:17:57
Andrea
in meiner Tabelle: https://www.herber.de/bbs/user/149882.xlsm
soll unter der letzten Zahl in Spalte E das Teilergebnis (Summe) der eingeblendeten Zellen ab Zeile 12 per Makro eingetragen werden.
Das Makro lautet wie folgt:
Sub Teilergebnis()
Dim uR As Integer 'uR = used Range
uR = Sheets("Akquise-Erlöse").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Akquise-Erlöse").Range("E" & uR + 1)
.Formula = "=SUBTOTAL(109,INDIRECT(""E""&ROW(12:" & uR & ")))"
.Font.Bold = True
End With
End Sub
Vielen Dank und schöne Grüße
Andrea
Anzeige