Office: Summe nur sichtbarere Zellen (Autofilter)

Hallo Forum,

ich würde gerne die Summen von sichtabren Zellen, die mittels Autofilter ermittelt werden bilden.

Hierzu nutze ich folgenden Code, der leider nur zum Teil funktioniert:
Code:

Dieser funktioniert leider nur wenn ich ihn mittels einer Sub aufrufe:

Code:

So bald ich daraus eine Funktion machen will kommt ein falscher Wert bzw. nicht der Wert der nur sichtbaren Werte heraus.

Ich brauche eine Funktion weil ich die Tabelle nach verschiedenen Filtern filtere und das Ergebnis an das aufrufende Makro zurückgeben muss.

Hat jemand eine Idee woran das liegt, dass der Code als Sub funktioniert aber als Funktion nicht? Bzw. kann mir jamand sagen wie ich es sonst machen könnte?

Bisher zählt die Funktion nur die sichtbaren Werte und ich müsste ziemlich viel umbauen wenn ich den Code nicht in der Funktion nutzen kann ...

:)

 

warum VBA? Benutze doch Teilergebnis()
Teilergebnis per VBA

 

Tut mir leid ich hab vergessen zu erwähnen, dass die Tabelle, die gefiltert werden soll in einer anderen Datei ist:
Das Makro befindet sich in A.xls und öffnet B.xls, filtert da nach Vorgabe die Tabelle und soll Anzahl der Zeilen und Summe der Werte ermitteln.

Die Anzahl wird bereits korrekt ermittelt aber die Summe bekomme ich wie gesagt nur wenn ich obigen Code als Sub laufen lasse...

 

Hallo Andreas,

ohne VBA hatte ich vorgeschlagen. Daas wurde ignoriert. Ich bin dann raus.

 

Hallo ?,

UDFs können nicht mit SpecialCells arbeiten.

Aber auch Teilergebnis kann man per VBA verwenden. Auf Englisch heißt die Funktion dann Subtotal. Die Summe der gefilterten Liste erhältst Du über die 9:
Code:

Grüße
EarlFred

 

Ich hab das nicht ignoriert, meine Antwort war etwas unklar:
Ich wollte nur sagen, dass es nicht ohne VBA geht.

Es ist nun mal ein etwas umfangreicheres Makro, dass auf eine andere Datei zugreift und dort den Filter anwenden soll. Am Ende kommt eine Auswertung heraus.

Ohne VBA kann ich ja nicht auf die andere Date zugreifen oder habe ich deine Aussage falsch verstanden?

 

Hallo ??,

kann man so nicht beurteilen. Man müsste schon die Randbedingungen komplett kennen. Aber das mag auch jetzt garnicht entscheidend sein.

Grüße
EarlFred

 

\@EarlFred: Danke funktioniert wunderbar.
@Hajo: Ich hatte dich falsch verstanden aber trotzdem danke für deine Hilfe.