VBA Makro löscht Suchfilter
26.07.2022 13:59:06
Boris.S.
ich habe einen VBA Code, der mir beim öffnen einer Excel immer eine Bestimmte Spalte sortiert, er funktioniert auch, aber danach Funktionieren die händischen Filter der anderen Spalten nicht mehr. Sie werden noch angezeigt aber man kann nicht mehr drauf klicken. Weiss einer den Fehler von mir? :)
Die Datei soll weiterhin geschützt bleiben. (beim schützen mache ich ein häkchen bei Sortieren und AutoFilter rein, aber VBA Code löscht den wieder raus)
Private Sub Workbook_Open()
Worksheets(1).Activate
Dim wks As Worksheet
Set wks = Worksheets(1)
With wks
.Unprotect Password:="SCF"
.Range("B5:K500").Sort Key1:=.Range("C5"), order1:=xlAscending, Header:=xlGuess
.Protect Password:="SCF"
End With
End Sub
Anzeige