Hallo miteinander...
Habe folgendes Problem:
Eine Tabelle auf der ein Autofilter liegt enthält einen "Reset" Button (Rückgängig machen einer Autofilterauswahl) Funktioniert Super, nur wenn ich das Blatt mit einem Blattschutz versehe funktioniert der Resetbutton nicht mehr. Hinterlege ich nun beim Reset Button die Codezeile ActiveSheet.Unprotect "XXXX" und ActiveSheet.Protect "XXXX" hebt es mir den Blattschutz auf, aber ich kann dann nicht mehr auf meinen Autofilter zugreifen...
Im Ganzen sieht das Script in etwa so aus
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "xxxxx"
Selection.Autofilter Field:=1
Selection.Autofilter Field:=2
Selection.Autofilter Field:=3
Selection.Autofilter Field:=4
Selection.Autofilter Field:=5
.
.
.
Dim 1Letzte As Long
1Letzte = IIf(IsEmpty(Cells(Rows.Count, 1)), usw. (Anweisung zur letzten ausgefüllten Zelle in Spalte A springen)
ActiveSheet.Protect "xxxxx"
Habe es auch schon mit einer MakroAufzeichnung probiert und diese CodeSchnippsel eingefügt aber da bin ich anscheinend komplett auf dem falschen Dampfer :)
Habe es auch Probiert mit .Enable Autofilter aber irgendwat fehlt da noch ... Wer kann mir da raus helfen?
Thx im vorraus!!!
Gruß Gerhard