Hallo
Habe probiert meine Einträge in einer Spalte zählen zu lassen und am Schluss die Summe Einträge in einer bestimmten Zelle anzeigen zu lassen.
Das Problem kommt mit dem Autofilter, ich möchte z.B. ab Cells(10, 5) „wo der Autofilter ist“ nach unten zählen und dann die Ausgabe „Anzahl der Einträge“ in Cells(3, 20) haben.
Hätte jemand ein Lösung?
Danke
Habe probiert meine Einträge in einer Spalte zählen zu lassen
und am Schluss die Summe Einträge in einer bestimmten Zelle
anzeigen zu lassen.Das Problem kommt mit dem Autofilter, ich möchte z.B. ab
Cells(10, 5) „wo der Autofilter ist“ nach unten zählen und
dann die Ausgabe „Anzahl der Einträge“ in Cells(3, 20) haben.
Hallo Flexo,
mußt dir die Beeiche und Zellen noch anpassen.
Ausgeblendete/gefiltere Zeilen haben die Zeilenhöhe 0.
Füge über Einfügen–Namen—… einen Namen, z.B. „ZH“ ein und weise ihm die Fprmel zu:
=ZELLE.ZUORDNEN(17;A1)
Dann schreib z.B. in Hilfsspalte G in G1 rein:
=ZH
Kopiere das dann in G runter.
Jetzt nur noch in z.B. D1:
=ZÄHLENWENN(G:G;„0“)
Gruß
Reinhard
Hallo Reinhard
wollte das per command_click laufen lassen.
Danke
Ich meine etwa so etwas:
Klappt aber nicht !!?
Sub Command_Click()
Dim row As Long
Dim count As Long
For row = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If Rows(row).Hidden = False Then
If Range(„E“ & row).Value = „Club 1“ Then count = count + 1
End If
Next row
MsgBox „Club 1 ist " & count & " mal vorhanden!“
End Sub
Hatte die Clubs mit Alt+255 beschriftet, darum nicht gefunden, jetzt läufts.
Danke
Sub Command_Click()
Dim row As Long
Dim count As Long
For row = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If Rows(row).Hidden = False Then
If Range(„E“ & row).Value = „Club 1“ Then count =
count + 1
End If
Next row
MsgBox „Club 1 ist " & count & " mal vorhanden!“
End Sub
Hallo Flexo,
das ist schneller:
Private Sub CommandButton1\_Click()
Dim Zaehler As Long
Zaehler = Application.CountIf(ActiveSheet.UsedRange \_
.SpecialCells(xlCellTypeVisible).Columns(5), "Club 1 ist")
End Sub
Gruß
Reinhard
Grüezi Flexo
Die armen Spatzen - immer werden sie mit (VBA-)Kanonen beschossen… 
Habe probiert meine Einträge in einer Spalte zählen zu lassen
und am Schluss die Summe Einträge in einer bestimmten Zelle
anzeigen zu lassen.Das Problem kommt mit dem Autofilter, ich möchte z.B. ab
Cells(10, 5) „wo der Autofilter ist“ nach unten zählen und
dann die Ausgabe „Anzahl der Einträge“ in Cells(3, 20) haben.Hätte jemand ein Lösung?
Schau dir bitte die Funktion TEILERGEBNIS() mal näher an - damit ist das IMO vollständig abgedeckt und sie aktualisiert sich auch gleich bei jedem Setzen des Autofilters.
Mit freundlichen Grüssen
Thomas Ramel
Spatzen, wo? ah da, Kanone.Peng 
) o.w.T.
Danke Reinhard
für Deine stetige Unterstützung, doch diesmal funktioniert der Coder nicht. Ich lasse mir Zaehler in B4 Ausgeben und es passiert nichts. Der Filter ist in E15 und soll von dort aus zählen… naja. Ich werde nochmal was probieren.
Ich lasse mir Zaehler in B4 Ausgeben und es
passiert nichts. Der Filter ist in E15 und soll von dort aus
zählen… naja. Ich werde nochmal was probieren.
hallo Flexo,
was wird angezeigt?
Private Sub CommandButton1\_Click()
Dim Zaehler As Long
MsgBox ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns(5).Address
Zaehler = Application.CountIf(ActiveSheet.UsedRange \_
.SpecialCells(xlCellTypeVisible).Columns(5), "Club 1 ist")
End Sub
Gruß
Reinhard
Die MsgBox zeigt $E$1:blush:E$15 an.
Die MsgBox zeigt $E$1:blush:E$15 an.
Hallo Flexo,
dein Filter sitzt doch in E15, also steht nix unterhalb des Filters *vermut*
Lade mal mit FAQ:2606 eine Beispielmappe hoch wo mein Code nicht funktioniert.
Gruß
Reinhard
mein Bock, hatte einen Fehler beim String drin. uppss
Reinhard nichts gegen Deine Codes !!
Kurz und knackig.
Gruss