Office: Funktion TEILERGEBNIS als VBA

Hallo zusammen,

ich arbeite gerade mit einem Excelsheet mit Autofilter.

Ich brauche für mein Makro nun die Anzahl der ausgewählten Zeilen.

Über die Funktion TEILERGEBNIS(3;...) wäre das ja direkt an der Oberfläche möglich - gibt es das ganze aber auch als VBA-Methode für ein Range-Objekt?

Danke und Gruß,
JBond

:)

 

Hallo JBond,

in der TEILERGEBNIS-Formel teilst du Excel ja einen Bezug mit, für den du ein Ergebnis haben möchtest. Genauso benötigt natürlich auch VBA einen Bezug. Dieser könnte z.B. die aktuelle Markierung sein. D.h., du markierst eine gefilterte Spalte (nicht die komplette Spalte, sondern von der ersten Datenzeile bis zur letzten). Die Auszählung ginge dann mit folgendem Code in der Variablen ze:
Code:

 

Hallo Ingolf,

danke für den Ansatz - aber ich wollte eigentlich gerade nicht über eine Schleife gehen - ich dachte mir halt, wenn es schon so ne schöne Excel-Funktion gibt, dann gibt's da doch bestimmt auch was vergleichbares bei VBA.

Der Bezug ist dabei kein Problem - der ist in dem Fall ja Code:

, bzw eine Variable vom Typ Range.

Kennt noch jemand eine schleifenlose Variante?

Gruß, JBond

 

Hallo JBond,

ich sehe gerade, die Funktion TEILERGEBNIS ist auch als WorksheetFunction in VBA verfügbar.

AnzZeilen = Application.WorksheetFunction.Subtotal(2, rng)

entspricht z.B.

=TEILERGEBNIS(2, rng)

wobei rng in VBA eine Rangevariable und in der Zellfunktion ein Bezug ist.

Gruß Ingolf

 

Hallo JBond,

gehe ins VBA-Direkfenster. Gib Dir dort die Excel-Formel in Englisch aus:

?activecell.Formula
=SUBTOTAL(3,A:A)

Suche in (Application.)WorksheetFunction, ob es das dort gibt, hier:

Debug.Print WorksheetFunction.Subtotal(3,Range("A:A"))

Alternativ nimm vielleicht sowas:

Debug.Print ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count

cu, Bernd

 

Es ist zwar
Code:

aber ansonsten genau, was ich gesucht habe...

Vielen Dank!