Wer kann mir helfen ?
Bei eingeschalteten Blattschutz funktionieren meine Schalter zum Sortieren und
Alle anzeigen nicht !
Hier ein Beispiel !
Private Sub CommandButton5_Click()
On Error Resume Next
ActiveSheet.ShowAllData
Range("A3").Select
End Sub
Private Sub CommandButton34_Click()
'Range(ActiveSheet.UsedRange.Address)
Selection.AutoFilter Field:=2, Criteria1:="Fremd****", Operator:=xlAnd
End Sub
Kann mir geholfen werden? Gruß Bommi