Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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]
to 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) ...
to 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)
to 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

Excel 2007
to 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
to top
#6
blöde Frage, wie aktiviere ich den Code?
Habe bisher in dem Code Fenster noch nie etwas gemacht.....
to top
#7
Hallo Alfred,

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

Excel 2007
to top
#8
Okay habe ich gemacht!
nun kommt folgender Fehler

Fehler beim Kompilieren:

End Sub erwartet
to top
#9
Hallo Alfred,

dann kopier den gesamten Code hinein!  ;-)

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

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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Vorsitzender und Stellvertreter bei der Berechnung trennen und automatisch sortieren Elias 3 281 25.06.2016, 12:33
Letzter Beitrag: schauan
  VBA - Automatisch sortieren wenn eine Zeile Von Bis ausgefüllt ist merkurus 4 404 18.03.2016, 21:59
Letzter Beitrag: merkurus
  Automatisch nach Differenz sortieren cuba 2 463 04.01.2016, 11:41
Letzter Beitrag: cuba
  Tabelle automatisch sortieren/aufräumen lassen mcgreg 6 1.490 07.09.2015, 20:49
Letzter Beitrag: WillWissen

Gehe zu:


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