wenn ich versuche das folgende Makro mit aktivem Blattschutz laufen zu lassen, bekomme ich eine Fehlermeldung (Laufzeitfehler 1004) und ich bekomme es nicht hin.
Sub NAMEN_SORTIEREN()
Range("B4:AI41").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B4").Select
End Sub
Danke