Ich hab bis jetzt nichts im Netz gefunden zu diesem Thema.
Ich zähle die Gefilterten Zeilen über folgenden code:
Sub TEST()
DIM Zeilen as Long, LetzteZeile as Long
With ActivSheet
LetzteZeile = Cells(Rows.Count, 1).End(x1Up).Row
Zeilen = WorksheetFunction.Aggregate(3,3,ThisWorkbook.ActiveSheet.Range("A2:A600000")
Nun möchte ich die ermittelte Anzahl der angezeigten Zeilen in ein neue Zeile einfügen.
Wenn ich mir eine MsgBox erstelle kommt die richtige anzahl der Zeilen und funktioniert.
Ich bin für jeden Tip dankbar.
Grüsse
Cyrill