Hallo Zusammen,

Mittels folgendem Code:

Dim a, b, c As Byte

a = 66
b = cbSaison.ListIndex * 49
c = a + b

Dim rkey1 As Range, rkey2 As Range, rkey3 As Range

Range(Cells(3, c + 25), Cells(39, c + 47)).Select

rkey1 = Range(Cells(4, c + 30))
rkey2 = Range(Cells(4, c + 33))
rkey3 = Range(Cells(4, c + 31))

Range("CM3:DI39").Select
Selection.Sort Key1:=rkey1, Order1:=xlDescending, Key2:= _
rkey2, Order2:=xlDescending, Key3:=rkey3, Order3 _
:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

möchte ich gern, immer abhängig von dem Kombifeld - cbSaison - sortieren.

Wenn ich den Befehl aufrufe, bekomme ich die Fehlermeldung:

"Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen"

Wird jemand aus meinem Geschreibe schlau und kann mir helfen?

Vorab Danke und liebe Grüße
Frank H.