Automatisch sortieren, Rangliste...
Daniel Hofer
ich habe 2 Spalten, eine mit Teilnehmer und die nächste mit den Punkten.
nun möchte ich diese tabelle sortieren..
ja, ich weiss, Daten/Sortieren...
ich möchte es aber automatisieren, damit man nicht immer manuell sortieren
muss.
wie könnte man dies lösen? mir ist nicht klar, ob es dafür
tabellen-funktionen geben würde.
ah ja, die punkte gehen übrigens über 3 spalten, die nacheinander sortiert
werden.
also 15/8/20 ist erster, 15/7/30 ist zweiter und so;-)
vielen dank.
gruss daniel
Frank Arendt-Theilen
Hallo Daniel,
schmeiß den Makrorekorder an und zeichne deine Sortieraktion auf.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de
Am Thu, 26 Oct 2000 13:20:02 +0200, schrieb "Daniel Hofer"
<da...@join.ch> in microsoft.public.de.excel zu "Automatisch sortieren,
Rangliste...":
Christian Kunz
ich stand vor kurzem vor dem gleichen Problem.
Ich habe es folgendermassen gelöst:
Makrorekorder aufgerufen...
Die Sortierfunktion angewandt...
Makrorekroder ausgeschaltet...
Im VB-Editor das neu erstellte Makro in Worksheet_Activate verschoben.
Haut supergut hin, bei jedem aufruf des Tabellenblattes wird automatisch neu
sortiert und nicht nur beim Öffnen der Tabelle. (Auch nicht nach änderung
eines Wertes in einer anderen Zelle, erst bei wiederaktivierung des Blattes
!)
Hier mein Beispiel:
Private Sub Worksheet_Activate()
Sheets("Rangliste").Select
Range("A2:C21").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending,_
Key2:=Range("A2") , Order2:=xlAscending, Header:=No,_
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub
HTH
--
christi...@cityweb.de
_____________________________________
If you think your life is hard try to live another ...
"Daniel Hofer" <da...@join.ch> schrieb im Newsbeitrag
news:8t8t4t$ltook$1...@ID-22585.news.dfncis.de...
Daniel Hofer
vielen dank.
gruss daniel
Sven Kalow
Deine Methode funktioniert supergut, doch der Debugger meckert, sobald
ich den Blattschutz aktiviert habe, egal ob die zu sortierenden Zellen
geschützt oder ungeschützt sind.
Was kann ich da machen. Ich kann auf den Blattschutz nicht verzichten!
Danke, Sven
--
Sven Kalow * mailto:sv...@kalow.de
Christian Kunz
ich hatte das mit dem Blattschutz auch.
Ich vergebe den Blattschutz ohne Passwort, das kann man direkt im VB-Editor
eingeben.
Meine komplette Prozedur für dieses Sheet sah folgendermassen aus:
Private Sub Worksheet_Activate()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False,
Scenarios:=False
Sheets("Rangliste").Select
Range("A2:C21").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("A2")
_
, Order2:=xlAscending, Header:=No, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select
Application.DisplayFullScreen = True
ActiveWindow.Zoom = Range("A1:D22").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub
Zuerst wird der Blattschutz (ohne Kennwort) aufgelöst, dann wird umgebaut,
anschließend habe ich noch den Zoom auf den wichtigen Bereich gelegt und
dann wird der Blattschutz wieder aktiviert.
Vielleicht was jemand anderes, wie man das jetzt :mit_ Kennwort hinkriegt,
sonst ist es ein bischen leicht aufzulösen.
Mir ging es hierbei mehr darum, das der Anwender nicht ausversehen irgendwo
was löscht. (Wie immer, mit Absicht geht eh fast alles kaputt ;-) ).
Bei Interesse kann ich Dir auch mal die Gesmte Tabelle (ist für eine
Tipp-Gemeinschaft von ESC-Moskito-Fans) zumailen.
HTH
--
christi...@cityweb.de
_____________________________________
If you think your life is hard try to live another ...
"Sven Kalow" <sv...@kalow.de> schrieb im Newsbeitrag
news:39F94F98...@kalow.de...
> Hi,
>
> Deine Methode funktioniert supergut, doch der Debugger meckert, sobald
> ich den Blattschutz aktiviert habe, egal ob die zu sortierenden Zellen
> geschützt oder ungeschützt sind.
>
> Was kann ich da machen. Ich kann auf den Blattschutz nicht verzichten!
>
> Danke, Sven
>
>
>
>
> Christian Kunz wrote:
> >
...