Ich hab in einer Datenbank einen normalen Filter eingebaut!
Nur müsste das Blatt geschütz werden. Im geschützem Zustand funktioniert aber der Filter nicht mehr.
Wie kann ich das umgehen?
Danke im Voraus!
Sebastian
Sub AutofilterBeiBlattschutz()
MsgBox "Autofilter ist eingeschaltet", vbInformation, "InfoSebastian"
ActiveSheet.Protect userinterfaceonly:=True
' im geschützten Blatt arbeiten
ActiveSheet.EnableAutoFilter = True
End Sub