AW: Seltsamer Laufzeitfehler Visual Basic
08.10.2010 00:11:14
fcs
Hallo Susanne,
die Sortieranweisung als solche ist korrekt und funktioniert bei mir problemlos unter Excel2007.
Irgensetwas muss also in deiner Datei vor dem Sortieren vorhanden, eingestellt oder selektiert sein, was den Sortiervorgang stört.
In früheren Excel-Versionen gab es gelegentlich Probleme, wenn beim Start eines Makros ein Steuerelement den Fokus hatte, dann musste erst eine Zelle aktiviert werden, bovor das Makro bestimmte Aktionen mit Zellbereichen ausführen konnte.
Weiteres mögliches Problem: das Makro wurde mit einer neuen Excelversion erstellt und dann in einer älteren Version benutzt. Kann Probleme machen, wenn wie z.B. beim Sortieren in der neueren Version zusätzliche Parameter angegeben werden können bzw. vom Makrorekorder aufgezeichnet werden, die die frühere Version nicht kennt.
Die Sortierfunktion reagiert auch "allergisch" auf verbundene Zellen. Dann ist die Fehlermeldung allerding anders.
Hier mal ein paar Modifikationne deines Makros, die evtl.zum Ziel führen.
Gruß
Franz
Sub Sortieren()
Range("A7:AZ2500").Sort Key1:=Range("F7"), Order1:=xlDescending, Header:=xlNo, _
ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub Sortieren1()
Range("A1").Activate
Range("A7:AZ2500").Sort Key1:=Range("F7"), Order1:=xlDescending, Header:=xlNo, _
ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub Sortieren2()
Range("A7:AZ2500").Sort Key1:=Range("F7"), Order1:=2, Header:=2, _
ordercustom:=1, MatchCase:=False, Orientation:=1
End Sub
Sub Sortieren3()
Range("A7:AZ2500").Sort Key1:=Range("F7"), Order1:=2, Header:=2
End Sub