Sortierfunktion
25.06.2007 01:56:00
Rene
Ich will Einträge sortieren.
Habe dann ein Makro erstellt, in dem z.B. folgende Zellen markiert sind: B21:H79
Habe dann bei der Aufzeichnung gesagt, dass er alle Zellen aufsteigend nach C sortieren soll.
Dies funktioniert bis jetzt noch bestens.
Sobald ich jedoch das Arbeitsblatt schütze, funktioniert es nicht mehr und es kommt folgende Fehlermeldung:
Laufzeitfehler '1004':
Die Sort-Methode des Range-Objektes konnte nicht ausgeführt werden.
Wenn ich nun auf Debuggen klicke, wird folgendes angezeigt:
Range(B21:H79").Select
Selection.Sort Key1:=Range("C21"), Order:=x1Ascending, Header:=x1Guess, _
OrderCustom:=1, MatchCase:=False, Orientation:x1TopToBottom
Range("B21".Select
Die zweite und dritte Linie (Selection.Sort..... etc. und OrderCustom....etc.
sind dann gelb hinterlegt.
Warum funktioniert die Sortiererei, wenn das Arbeitsblatt nicht geschützt ist und funktioniert nicht, wenn das Blatt geschützt ist ?
Vielen Dank für die Hilfe.
Schmidi