Sortieren und nichts geht mehr
25.11.2005 09:32:07
Gisela
ich versuche mit folgendem Makro Daten zu sortieren. Es sollen die Daten in A6 bis zum letzten Wert in Spalte S (begrenzt auf 1000 Zeilen) ohne Überschrift sortiert werden.
Das Sortieren funktioniert augenscheinlich; dann aber bleibt der Rechner stehen. Wenn ich dann übers Schliesskreuz/abbrechen wieder aktiviere, sind die Daten sortiert und alles geht wieder.
Kann mir bitte jemand helfen, was ich am Makro ändern muß?
Sub Sortieren()
Application.ScreenUpdating = False
Sheets("TB1").Select
Range("A6:S" & Cells(1000, 1).End(xlUp).Row).Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
Vielen Dank und Grüße
Gisela
Anzeige