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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen