Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menge der Zeilen bei Selection.AutoFilter

Menge der Zeilen bei Selection.AutoFilter
07.03.2007 11:25:22
F
Hallo,
ich habe in einem macro folgenden Befehl:
Selection.AutoFilter Field:=1, Criteria1:=name
Selection.AutoFilter Field:=2, Criteria1:=wert
nun ändert sich natürlich der wert der gefilterten zellen,
je nachdem, wie oft name und wert im Arbeitsblatt vorkommen.
Wenn ich den Filter im Arbeitsblatt selber setze, bekomme ich
unten links die Anzeige: 4 off 26 records found
Gibt es eine Möglichkeit, diesen Wert auch im Makro zu bekommen?
Ich habe es schon so versucht:
Selection.AutoFilter Field:=1, Criteria1:=name
Selection.AutoFilter Field:=2, Criteria1:=wert
ende = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
aber da werden auch die Reihen gezählt, die nicht zu sehen sind.
Mit freundlichen Grüssen Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Funktion TEILERGEBNIS
07.03.2007 11:35:00
Beate
Hallo Frank,
füge diese Formel in eine freie Zelle außerhalb des Filterbereichs ein, den Bereich musst du anpassen:
=TEILERGEBNIS(3;A7:A10000)
Guckst Du: Teilergebnis
Gruß,
Beate
AW: Funktion TEILERGEBNIS
07.03.2007 11:38:00
F
Hallo Beate,
erst einmal Danke für deine Antwort,
aber ich möchte den Wert, der Anzahl der Zeilen, im Makro haben.
Ist das möglich?
Mit freundlichen Grüssen
Frank
AW: Funktion TEILERGEBNIS
07.03.2007 11:51:03
Klaus-Dieter
Hallo,
versuch es mal so: AnzZeilen = Application.WorksheetFunction.Subtotals(3;Range("A7:A10000"))
Ist nicht getestet.
Viele Grüße Klaus-Dieter

Online-Excel
Anzeige
AW: Funktion TEILERGEBNIS
07.03.2007 12:07:55
F
Hallo Klaus-Dieter,
da kommt die Fehlermeldung:
run-time error '438'
Object doesnt' support this property or method
Noch eine Idee?
Gruß
Frank
durch probieren gefunden
07.03.2007 12:24:03
F
Hallo,
ich habe einfach ein wenig mit dem Code probiert,
und so hat es dann funktioniert:
i = Application.Subtotal(3, Range("A1:A10"))
Danke, Viele Grüße
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige