Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit automatischer Sortierung

Problem mit automatischer Sortierung
29.04.2005 09:23:52
Kennguru
Ich habe das problem vor einigen Tagen schonmal gepostet, aber da es schwer zu beschreiben ist habe ich keine passende Lösung bekommen, daher versuche ich es nochmal.
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit automatischer Sortierung
29.04.2005 09:50:02
raansi
hallo ken
wieder ein beispiel dafür warum select und activate nicht so die brüller sind.
der macrorecorder ist ein nützlich ding, aber den code kann man meistens noch anpassen.
versuch mal so:
(wenn ich das richtig verstanden habe)
Public

Sub z()
Range("A2:I65536").Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

ransi
Danke -> Muss noch probieren klingt aber gut o.T.
29.04.2005 09:55:04
Kennguru
..
AW: Problem mit automatischer Sortierung
29.04.2005 09:51:24
Hajo_Zi
Hallo Kennguru,
verzichte auf select und Dein Problem ist gelöst.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"

Dies gilt auch für Bert.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige