automatisch Sortieren

[Alfredd64]

Guten morgen zusammen,
nachdem mir das letzte mal hier schon super geholfen wurde,
komme ich heute noch einmal mit einer Bitte an euch!
ich versuche seit Tagen zwei Listen und zwar die Scorer Liste und Strafen Liste zu sortieren.
Über die normale Funktion sortieren kein Problem aber dann muss ich sie ja bei Veränderungen neu anstoßen.
Kann mir da geholfen werden das die Listen automatisch sortieren!?
In der Liste Scorer soll zuerst nach Pkt. dann nach Toren sortiert werden
bei den Strafen nur nach gesamt.
Wäre super wenn ihr mir helfen könntet !!!

DANKE
VG
Alfred
[attachment=1680]

[Kl@us-M.]

Hallo Alfred,

zeichne doch das Sortieren mit dem Makrorecorder auf und füge den Code in das "Worksheet_Change"-Ereignis des Tabellenblatts ein.

Wenn Du damit nicht zurecht kommst, lade Deine Mappe doch mal hier hoch, denn das hat wohl eben nicht geklappt (zumindest wird bei mir nur die Nr. des Attachments angezeigt, aber keine Mappe) ...

[Alfredd64]

Hallo Alfred,

zeichne doch das Sortieren mit dem Makrorecorder auf und füge den Code in das "Worksheet_Change"-Ereignis des Tabellenblatts ein.

Wenn Du damit nicht zurecht kommst, lade Deine Mappe doch mal hier hoch, denn das hat wohl eben nicht geklappt (zumindest wird bei mir nur die Nr. des Attachments angezeigt, aber keine Mappe) ...

UPS habe es gerade auch gesehen

[atilla]

Hallo,

rechtsklick auf den Tabellenreiter der Tabelle "Gesamtübersicht" und in das große Fenster folgenden Code einfügen:

Code:

Private Sub Worksheet_Activate()
   Range("A4:M8").Sort Key1:=Range("M4"), Order1:=xlDescending, Header:=xlYes, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
 
   Range("A10:M38").Sort Key1:=Range("G8"), Order1:=xlDescending, Key2:=Range("E10") _
     , Order2:=xlDescending, Header:=xlYes, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
     DataOption1:=xlSortNormal

End Sub

Bei Aktivierung de Tabelle "Gesamtübersicht" wird der Code wird automatisch ausgeführt.

[Alfredd64]

rechtsklick auf den Tabellenreiter der Tabelle "Gesamtübersicht" und in das große Fenster folgenden Code einfügen:

Code:

Private Sub Worksheet_Activate()
   Range("A4:M8").Sort Key1:=Range("M4"), Order1:=xlDescending, Header:=xlYes, _
       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal
 
   Range("A10:M38").Sort Key1:=Range("G8"), Order1:=xlDescending, Key2:=Range("E10") _
     , Order2:=xlDescending, Header:=xlYes, _
     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
     DataOption1:=xlSortNormal

End Sub

Bei Aktivierung de Tabelle "Gesamtübersicht" wird der Code wird automatisch ausgeführt.

Habe ich gemacht, aber es passiert nichts

[Alfredd64]

blöde Frage, wie aktiviere ich den Code?
Habe bisher in dem Code Fenster noch nie etwas gemacht.....

[atilla]

Hallo Alfred,

wenn Makros aktiviert sind, dann aktivier eine andere Tabelle und kehre zurück zu Tabelle "Gesamtübersicht".

[Alfredd64]

Okay habe ich gemacht!
nun kommt folgender Fehler

Fehler beim Kompilieren:

End Sub erwartet

[atilla]

Hallo Alfred,

dann kopier den gesamten Code hinein! 

Excel sagt Dir doch mit der Meldung genau, was fehlt.

[Alfredd64]

Sorry Atilla,
bin wohl zu doof
kannst du das mal bei der Liste die ich oben angehängt hatte einsetzen!?