Teilergebnis variabel
10.10.2003 10:17:42
LotharP
es ist eine Tabelle mit eingelesenen Daten, d.h. die Datenmenge kann variieren.
Ich stze einen Autofilter, das klappt auch soweit.
Am Ende möchte ich ein Teilergebnis erzeugen, das klappt nicht.
Ursprünglich habe ich versucht die Formel Teilergebnis auszuschreiben, bekam aber einen Fehler zurück.
Als nächstes habe ich versucht per Makrorekorder aufzuzeichnen und dann mit der variablen zu belegen, geht auch nicht.
Hier mein Code:
Sub Filterrein()
Dim reih As Long
Rows("2:2").Insert Shift:=xlDown
Range("A2:I2", Selection.End(xlDown)).AutoFilter
reih = Range("f65536").End(xlUp).Row
Range("f65536").End(xlUp).Offset(2, 0).Formula = "=SUBTOTAL(9,R[-reih]C:R[-1]C)"
End Sub
Fehler ist Lfz 1004
Kann mir jemand sagen was da verkehrt ist und möglicherweise warum?
Die Formel wie sie da steht kann ich auch nicht so richtig nachvollziehen.
Im vorraus schon mal vielen Dank!
Gruß
Lothar