Heureka ich habe die Lösung gefunden.
Ich habe es per Makrorecorder aufgenommen und er hat mir eine neue Formel ausgespuckt:
.FormulaR1C1 = "=SUBTOTAL(3,R[2]C:R[1048575]C)"
Diese habe ich jetzt angepasst in
.Formula = "=SUBTOTAL(3,B3:B1048576)"
und siehe da : Es klappt.
Anscheinend hatte VBA nur den Englischen Funktionstext gebraucht.
Im Tabellenblatt wird es übrigends wieder als Teilergebniss angezeigt.
Trotzdem Danke. Vieleicht hilft es ja einem anderen.
Ich habe jedenfalls in Google nicht diese einfache Lösung gefunden.
Schönes Wochenende
Tschau Bernd
|