Spezialfilter funktioniert nicht mehr nach Blattschutz

Question

Guten Morgen liebe Excel - Profis, :-)

ich habe wieder ein Problem und komme nicht weiter. Es handelt sich um folgendes:

Nach einem Tabellenschutz in meiner Arbeitsmappe funktioniert mein Spezialfilter (erweiterter Filter) nicht mehr. Ich habe es schon mittel Makro probiert aber so richtig möchte er nicht funktionieren. :-(

Der Code:

Private Sub CommandButton1_Click()
Worksheets("Artikelliste").Unprotect Password:="test"
On Error GoTo fehler:
Sheets("Artikelliste").Range("A3:M1500").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("C2:C3"), CopyToRange:=Range("A8:M8"), Unique:=False
fehler:
Worksheets("Artikelliste").Protect Password:="test"
MsgBox "Es wurde nach allen Produktgruppen gesucht", vbQuestion, "Offene Posten Liste"
End Sub

Ich danke euch für die Hilfe.

Viele liebe Grüße
Nick

Answer 1

Hallo Nick,

in Deinem Code hebst Du den Blattschutz der "Artikelliste" auf.

Meines Wissens müsste aber der Blattschutz der "Bestands-Filterliste" aufgehoben werden, denn nur in diese wird ja geschrieben.

Gruß
Rainer

Answer 2

Hallo Rainer,

ja stimmt, dass ist mir gar nicht aufgefallen. o.O

Viele liebe Grüße
Nick