VBA Zählen von gefilterten Zellen gibt falschen Wert aus

[Cassius1985]

Moin Leude,

ich bin echt am verzweifeln.

Habe eine Tabelle mit verschiedenen Datensätzen die gefiltert und gedruckt werden müssen.
Für das Druck-Makro muss ich wissen, wieviel Datensätze im jeweiligen Filter sitzen.


In einer älteren Version habe ich die Funktion:

Zählen = ActiveSheet.Range("A6:A500").SpecialCells(xlCellTy peVisible).Count

genutzt.

Das hat auch immer funktioniert, egal wie viele Datensätze zum Zählen vorhanden waren.


Jetzt meinte jemand eine neue Datei zu erstellen und die alte samt Makro zu löschen

Mit der neuen Datei funktioniert das Zählen nicht richtig.

Wenn ich eingebe:

Zählen = ActiveSheet.Range("A6:A200").SpecialCells(xlCellTypeVisible).Count

Zählt er 46 Datensätze, es sind aber nur 8!

Ich möchte aber den Bereich bis

Zählen = ActiveSheet.Range("A6:A500").SpecialCells(xlCellTypeVisible).Count

durchsuchen, hier gibt er mir 346 Datensätze aus.


Wo liegt der Fehler?

 

[miac]

Schau dir die Funktion TEILERGEBNNIS an.