Sortierfunktion geht bei XP bei Win 98 nicht
07.03.2004 17:42:55
TF
ich habe einer Userform folgenden Code zugewiesen --> in Win XP. Hier soll eine Liste nach Spalte B%, dann nach E5 und dann nach F5 sortiert werden. Leider geht dieser Code bei Win 98 nicht ... Wie kann ich ihn so anpassen, daß er bei allen Excel-Versionen läuft?
Gruß und Danke vorab
TF
Private Sub Unterthema_Click()
ActiveSheet.Unprotect "6519734"
Range("A4:G300").Select
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("E5") _
, Order2:=xlAscending, Key3:=Range("F5"), Order3:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Unload Me
ActiveSheet.Protect "6519734"
Range("B4").Select
End Sub