ich habe eine Tabelle Personal.
Ich möchte per VBA feststellen ob mindestens ein Filter gesetzt worden ist.
(Daten, Filter, Autofilter ist aktiv)
Danke für eine Antwort!
Markus
Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
End With
End Sub
A | B | C | D | E | |
1 | Wert1 | Wert2 | Wert3 | 506 | |
2 | 88 | 87 | 83 | ||
3 | 89 | 0 | 13 | ||
4 | 22 | 44 | 43 | ||
5 | 89 | 46 | 78 | ||
6 | 41 | 23 | 67 | ||
7 | 99 | 54 | 34 | ||
8 | 21 | 36 | 35 | ||
9 | 90 | 18 | 67 | ||
10 | 42 | 62 | 86 |
Formeln der Tabelle | ||||
|