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