Problem mit automatischer Sortierung
29.04.2005 09:23:52
Kennguru
Ich habe nachfolgenden Code per makrorekorder aufgezeichnet und ein wenig abgeändert. Mit dem Code wird meine gesamte Tabelle von A bis I nach den Werten in der Spalte I sortiert.
Nun das Problem:
Meine Tabelle hat mehrere hundert Einträge, somit muss man erstmal ne ganze menge runterscrollen bis man unten einen Eintrag hinzufügen kann. Wenn dann das Makro ausgeführt wird, werde ich automatisch wieder an den Anfang der tabelle geschickt (Zeile 2). Ich muss also erneut runterscrollen, wenn ich noch einen Eintrag machen will. Das selbe passiert natürlich auch, wenn ich einen Eintrag in der Mitte der tabelle editiere. Ich muss dann wieder hinscrollen um die Veränderungen zu sehen.
Mein Wunsch:
Ich hätte es gern, dass nach dem ausführen des Makros immernoch der Teil der Tabelle zu sehen ist, wie vor dem ausführen. Also wenn ich in der Mitte bin soll mir weiterhin die Mitte angezeigt werden und wenn ich unten einen Eintrag hinzufüge, soll weiterhin das Ende angezeigt werden.
Der Code:
Range("A2:I65536").Select
Range("I2").Activate
Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom