Sotieren mit Makro
Kai
Ich bitte um Hilfe.
Ich habe, bei der die meisten Zellen gesperrt sind.
Einige Zellen sind nicht gesperrt.
In den nicht gesperrten Zellen möchte ich einen Bereich sortieren.
Der Code ist:
Range("DJ3:DJ8").Select
Selection.Sort Key1:=Range("DJ3"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Wenn der Blattschutz deaktiviert ist, dann läuft das Makro.
Aber wenn der Blattschutz aktiv ist, dann kommt:
Die Sort Methode des Range Objektes konnte nicht ausgeführt werden.
Woran liegt das?
Grüße
Kai