Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

automatisch Sortieren
#1
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]
Antworten Top
#2
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) ...
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Antworten Top
#3
(05.03.2015, 09:02)Kl@us-M. schrieb: 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


Angehängte Dateien
.xlsm   Junioren neu.xlsm (Größe: 416,37 KB / Downloads: 9)
Antworten Top
#4
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.
Gruß Atilla
Antworten Top
#5
(05.03.2015, 10:02)atilla schrieb: 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
Antworten Top
#6
blöde Frage, wie aktiviere ich den Code?
Habe bisher in dem Code Fenster noch nie etwas gemacht.....
Antworten Top
#7
Hallo Alfred,

wenn Makros aktiviert sind, dann aktivier eine andere Tabelle und kehre zurück zu Tabelle "Gesamtübersicht".
Gruß Atilla
Antworten Top
#8
Okay habe ich gemacht!
nun kommt folgender Fehler

Fehler beim Kompilieren:

End Sub erwartet
Antworten Top
#9
Hallo Alfred,

dann kopier den gesamten Code hinein!  Wink

Excel sagt Dir doch mit der Meldung genau, was fehlt.
Gruß Atilla
Antworten Top
#10
Sorry Atilla,
bin wohl zu doof
kannst du das mal bei der Liste die ich oben angehängt hatte einsetzen!?
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste