Sortieren
03.05.2006 16:40:30
Harry
hab da ein Problem und zwar will ich einige spalten sortieren das klappt ja auch super mit dem Code nur wenn die Tabelle mit einem PW gesperrt ist kommt eine fehlermeldung die lautet !!!
("Die Sort-Methode des Range-Objekts konnte nicht ausgeführt werden")
Was muß ich an diesem Code ändern damit der auch bei einer gesperrten Tabelle
die Spalten sortiert. Bitte um hilfe !!!
mfg. Harry
Hier der Code !!!
Private Sub Worksheet_Change(ByVal Target As Range)
Range("AB3:AB30").SORT Key1:=Range("AB3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AC3:AC26").SORT Key1:=Range("AC3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AD3:AD108").SORT Key1:=Range("AD3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AE3:AE58").SORT Key1:=Range("AE3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AF3:AF10").SORT Key1:=Range("AF3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AG3:AG8").SORT Key1:=Range("AG3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AH3:AH10").SORT Key1:=Range("AH3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AI3:AI8").SORT Key1:=Range("AI3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub