Gru?, Wolli
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A7:U36").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Calculate
Application.EnableEvents = True
End Sub
Kann schon sein, dass ich falsch liege, aber dann k?nnte man es wenigstens ausschliessen.
Gruss
Chris
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A7:U36").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Calculate
Application.EnableEvents = True
End Sub
Kann schon sein, dass ich falsch liege, aber dann k?nnte man es wenigstens ausschliessen.
Gruss
Chris