Wert falsch -SpecialCells(xlCellTypeVisible).Count
07.03.2016 08:35:09
Herbert
ich möchte einen Datensatz - beginnend mit der Spaltenüberschrift in Zeile 10 - nach bestimmten Kriterien ("Crit1" & "Crit2" sowie dem aktuellen Monat) filtern und die Anzahl der Ergebnisse in der Variablen "Anzahl" speichern.
Dies funktioniert soweit ganz gut. Solange der Autofilter Zeilen liefert, wird die Anzahl der gefilterten Zeilen korrekt gezählt. Liefert der Autofilter keine Zeilen als Ergebnis, so erhalte ich allerdings für die Variable "Anzahl" den Wert "1", obwohl dieser doch eigentlich "0" sein müsste. Habt ihr eine Idee woran das liegen kann?
Sub Count()
Dim Anzahl As Variant
Range("A10:K" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row).Select
Selection.AutoFilter Field:=8, Criteria1:=Array("Crit1", "Crit2"), Operator:=xlFilterValues
Selection.AutoFilter Field:=9, Criteria1:=Month(Date)
Anzahl = Range("A11:A" & ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row). _
SpecialCells(xlCellTypeVisible).Count
MsgBox Anzahl
End Sub