Sortieren VBA kein Fehler und geht trotzdem nicht
01.12.2005 17:19:53
Dennis
dieses Forum hat mir schon gute Dienste geleistet, aber mein momentanes Problem kann ich nicht lösen. Folgendes Problem:
Dieser Code stammt vom Makro-Recorder:
Range("Y5:AD30").Select
Selection.Sort Key1:=Range("AB5"), Order1:=xlDescending, Key2:=Range( _
"AC5"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Dieser Code stammt von mir:
Public Sub Sortieren()
Dim Ziel As Integer
Ziel = ActiveSheet.Range("AD65536").End(xlUp).Row
Range("Y5:AD30").Select
Selection.Sort Key1:=Range("AB5"), Order1:=xlDescending, Key2:=Range( _
"AC5"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub
Und was ist? Er geht nicht... Rufe ich im Code das Makro auf, klappt das Sortieren, rufe ich mein Sub auf, so gibt es keine Fehlermeldung, aber es wird auch nichts sortiert... Habe ich einen Bug entdeckt, oder was mache ich falsch?
Wäre toll, wenn einer ne Idee hätte.
Vielen Dank
Dennis