weiß jemand eine elegante Lösung in VBA um auszulesen ob in einem Tabellenblatt Daten gefiltert sind? Also nicht nur festzustellen ober der Autofiltermodus aktiv ist, sondern ob tatsächlich Daten gefiltert sind.
Vielen Dank
Freundliche Grüße
if Cells.SpecialCells(xlcelltypevisible).Rows.Count = Rows.Count Then
alles eingeblendet
else
mindestens eine Zeile ausgeblendet
End if
Sub FilterPruefen()
Dim intSpalte As Integer
Dim strSpalten As String
For intSpalte = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters(intSpalte).On Then
strSpalten = strSpalten & ", " & intSpalte
End If
Next intSpalte
If strSpalten > "" Then MsgBox "Gefiltert sind Spalte(n): " & Mid(strSpalten, 3)
End Sub