versuche gerade verzweifelt eine Variable eine Formel einzubauen und bekomme es nicht hin.
Statt der 6000 soll die ermittelte variable LastRow in der ausgegebenen Formel stehen.
Könnt Ihr mir bitte helfen, Danke :)
Sub gefilterte_punkte_zaehlen()
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:= _
xlPrevious).Row
Range("E7").FormulaR1C1 = "=SUBTOTAL(3,R[2]C:R[6000]C)"
End Sub