habe Probleme mit Blattschutz es läuft micht wie es soll
in dieser Varia lüft Autfilter nicht
Sub Filter2()
ActiveSheet.Unprotect ("xxx")
Range("A3:Q3").Select
Selection.AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("A4").Select
ActiveSheet.Protect ("xxx")
End Sub
in dieser Variante ist Blatt nicht geschützt nach ausschalten
möchte wenns geht mit einem Button machen EIN/AUS
Danke für Hilfe
gruss aus CH