VBA Filtern Blattschutz

Hallo Claus,
<br />Dankeschön.
<br />Ich habe immer noch generell Schwierigkeiten mit der Zuordnung. Wo wird welcher Code abgelegt wird
<br />Der 2. Code den nehme ich als Makro Button in meinem Modul "KlassenFiltern", wo auch die anderen liegen: BFF2 BffK1.........
<br />Der erste Code wird dann wo abgelegt Bzw. wird er genauso über einen Button angesteuert?
<br />Danke und viele Grüße
<br />Andreas
<br />

Hallo Andreas,
<br />das erste Makro wird einfach aufgerufen über Makros, um das Blatt zu schützen und dabei das Filtern zu erlauben.
<br />Das zweite Makro wird dann auf den Button gelegt.
<br />Claus
<br />

Hallo Andreas,
<br />richte den Filter ein und schütze das Blatt mit VBA und erlaube dabei das Filtern:
<br />

Sub Schutz()

With Sheets("Schuelerliste")

.EnableAutoFilter = True

.Protect userinterfaceonly:=True

End With

End Sub

Damit funktioniert dann das Filtern auch ohne, dass der Blattschutz entfernt wird:
<br />

Sub FilternBFF1()

With Sheets("Schuelerliste")

.AutoFilterMode = False

Application.Goto .Range("C4")

.Range("C4:R106").AutoFilter field:=9, Criteria1:="BFF1"

End With

End Sub

Claus
<br />

Hallo Frank,

du hast den Blattschutz gesetzt? Was kannst du nicht mehr nutzen? Kannst du nicht mehr filtern?

Die Formel kannst du nur verändern, wenn du den Schutz aufhebst. Wenn du den Filter vorher eingerichtet hast und beim Schutz "Autofilter verwenden" aktivierst, kannst du trotz Blattschutz filtern.

Falls das alles nicht zutrifft, erkläre bitte genauer, wie du geschützt hast und was nicht mehr funktioniert.

Mit freundlichen Grüßen

Claus

Hallo Stefan,

du musst vor dem Blattschutz das Filtern aktivieren, damit der Dropdown-Pfeil schon vorhanden ist. Und Sortieren geht nur, wenn in dem zu sortierenden Bereich keine Zellen gesperrt sind. Sonst bleibt dir nur der Weg den Blattschutz aufzuheben, zu sortieren
und dann den Schutz wieder zu setzen.

Mit freundlichen Grüßen