Office: Sortierfunktion fest integrieren

Hallo Excelspezialisten,

in meiner Tabelle habe ich 1 Kopfzeile und 5 Spalten. Die Tabelle ist ein Bereich eines Tabellenblattes.
Spalte 1 ist der Bezeichner, nennen wir ihn Läufer
Spalte 2 ist sein erster Wert
Spalte 3 ist sein zweiter Wert
Spalte 4 ist das Ergebnis (genannt Wert) aus Wert 1 / Wert2
Spalte 5 ist die Note und fest durchnummeriert von 1 bis 5

Zum Sortieren markiere ich die Zellen der Spalten 1 bis 4 und zwar von der Kopfzeile bis zur letzten Zeile die sortiert werden soll, klicke mit rechts, wähle sortieren, benutzerdefiniert, sortieren nach Spalte Wert, aufsteigend.
Jetzt sehe ich welcher Läufer auf Platz 1 ist usw.

Wenn sich die Werte aber ändern, muss ich das Prozedere neu machen.
Frage 1: Kann ich nicht den Tabellenbereich automatisch nach o.g. Kriterien sortieren lassen und wie geht das?
Frage 2: Kann man das so gestalten, dass diese Automatik auch auf neu hinzukommende Zeilen automatisch erweitert wird?

Für Eure vielen netten Antworten danke ich schon mal herzlichst im Voraus.

 

Hallo,

da Du nicht angegeben hast, welche Excel-Version Du hast, habe ich angenommen, dass Du Excel2007 oder später hast.
In der beiliegenden Excel-Datei habe ich Dir ein VBA-Makro im Codemodul des Arbeitsblattes "Tabelle1" eingebaut, das automatisch darauf reagiert, falls Datenänderungen in den ersten 4 Spalten der Tabelle erfolgen. Genau dann werden die ersten 4 Spalten der Tabelle nach Spalte D aufsteigend sortiert. Spalte E bleibt unverändert.

 

Hallo Anton,
funktioniert sehr gut. Vielen Dank dafür. Allerdings habe ich festgestellt, dass keine Nachkommastellen berücksichtigt werden. Die Werte 6,1 und 6,9 bekommen beide die gleiche Note. Und wie kann ich das in meine eigene Tabelle integrieren. Ich möchte das u.U. auch gerne in anderen Tabellen anwenden, wenn ich darf. Und da wäre es schön zu wissen, wie man sowas macht.
LG
Stephan

 

Hallo Stephan,

Wie sich die "Note" in der 5. Spalte errechnet, hast Du nicht beschrieben ("Spalte 5 ist die Note und fest durchnummeriert von 1 bis 5"), wie auch immer das zu verstehen ist. Daher musst Du schon selber für die Berechnung der Note sorgen. Mein Makro sortiert die Zeilen der ersten 4 Spalten - sonst tut es nichts.

Das "Dürfen" ist ja sicherlich kein Problem, sonst hätte ich das Makro nicht in einem öffentlichen Hilfeforum publizieren dürfen - es enthält außerdem kein spezielles "geheimes" Knowhow.
Das "Wie" ist natürlich ein anderes Problem.
1) Das Makro muss jeweils zur Gänze in das Codemodul des betreffenden Arbeitsblattes, in dem die Sortierung stattfindet, kopiert werden.
2) Es muss die Ermittlung des zu sortierenden Bereiches entsprechend angepasst werden (unten blau gekennzeichnet).
3) Es muss eventuell die Kennzeichnung der Spalte mit den Sortierkriteriumswerten (4.Spalte) angepasst werden (unten rot gekennzeichnet). Es muss dort nur die Zelle in der Überschrift angegeben werden, deren Spaltenwerte als Sortierkriterium hergenommen werden.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim rgTab As Range
  
  On Error GoTo Err_Change
[COLOR="#0000CD"]  Set rgTab = Me.Cells(2, 1).CurrentRegion
  Set rgTab = rgTab.Resize(ColumnSize:=4)[/COLOR]
  If Application.Intersect(rgTab, Target) Is Nothing Then Exit Sub
  
  Application.EnableEvents = False
  
  With ActiveSheet.Sort
    With .SortFields
        .Clear
        .Add Key:=[COLOR="#FF0000"]rgTab.Cells(1, 4)[/COLOR], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    .SetRange [COLOR="#0000CD"]rgTab[/COLOR]
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  
Err_Change:
  Application.EnableEvents = True
  
End Sub

 

Hallo Anton,

entschuldige bitte die späte Antwort, aber ich war ein paar Tage weg.
Da hast Du Dir sehr viel Mühe gemacht. Vielen Dank dafür.
Das Problem mit der gleichen Benotung ist erledigt, das lag daran, dass in der Spalte Deiner Mustertabelle die Note 5 zweimal vorkam und ich das ungesehen übernommen habe ;-)

Verzeih mir bitte meine Laienhaftigkeit, aber wie komme ich in das Codemodul meiner Tabelle? Ich habe schon alles durchstöbert, aber entweder übersehe ich da was, oder ich bin einfach nur blöd.

Vorab schon mal vielen Dank.

LG
Stephan

 

Hallo Stephan,

es führen bekanntlich viele Wege nach Rom - der einfachste ist:
1) Du machst mit der rechten Maustaste einen Klick auf den Tabellenreiter Deines Arbeitsblattes "Tabelle1". Dadurch erscheint das Kontextmenü des Arbeitsblattes. Aus dieser Liste wählst Du den Eintrag "Code anzeigen" aus. Daraufhin erscheint automatisch das Codemodul des Arbeitsblattes "Tabelle1".
2) Ein anderer Weg wäre: Du drückst die Tastenkombination Alt+F11. Dadurch gelangst Du in den VBA-Editor. Falls hier dann das "Projekt-VBAProjekt"-Fenster nicht zu sehen ist, drückst Du die Tastenkombination Strg+R. Und dann machst Du in der dort enthaltenen Liste auf den Eintrag "Tabelle1 (Tabelle1)" einen Doppelklick - und Du stehst damit im Codemodul des Arbeitsblattes "Tabelle1".
3) Um vom Codemodul wieder zurück zum Arbeitsblatt zu gelangen, drückst Du wieder die Tastenkombination Alt+F11.

Du musst allerdings darauf achten, dass Du den Code im Codemodul des Arbeitsblattes "Tabelle1" bearbeitest/eingibst/änderst. Du darfst keinesfalls das Codemodul der Arbeitsmappe bearbeiten wollen - außerdem steht dort zur Zeit eh kein Code.