Mehrere Zeilen mit Einzelweten nach Spalten absteigend oder aufsteigend sortieren

[daste]

Hallo,

ich habe folgendes Problem. Das Auswerteprogramm in unserem Verein gibt pro Teilnehmer die Ergebnisse unsortiert in einer Zeile über mehrere Spalten aus.
Bisher habe ich immer jeden Teilnehmer einzeln über Daten-Sortieren-Optionen Spalten sortieren absteigend oder aufsteigend sortiert.

Gibt es vielleicht in Excel vielleicht eine Möglichkeit mir diese Arbeit zu vereinfachen? Mir ist bisher nichts besseres eingefallen. Wenn ich die ganze Tabelle markiere und sortiere werden alle Spaltenwerte nach der ersten Zeile sortiert.

Die Tabelle sieht folgendermaßen aus

   

Es geht um die Werte ab Spalte D bis M

Hoffe mir kann jemand helfen.

Grüße
Daste

[RPP63]

Moin!
Da sehe ich nur die Möglichkeit, das Ganze mittels VBA in einer Schleife abzuarbeiten.
wäre das für Dich eine Option?

Gruß Ralf

[RPP63]

Mal quick&dirty:

Sub SortRows()
Dim i&
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  Range(Cells(i, 4), Cells(i, 14)).Sort Cells(i, 4), xlDescending
Next
End Sub

Wenn Du aufsteigend sortieren willst, dann lasse xlDescending einfach weg.

[daste]

Hallo RPP63,

vielen Dank für deinen Lösung. Ich selbst habe bisher mit VBA nichts gemacht. Werde versuchen deinen Vorschlag zu testen.

Vielen Dank

[RPP63]

Ist kein Hexenwerk!
Obigen Code kopierst Du in ein allgemeines Modul.
Wird hier gut erklärt:
http://www.online-excel.de/excel/singsel_vba.php?f=44
Das Makro rufst Du dann mittels Alt+F8 auf.
Viel Erfolg!

[daste]

Entschuldigung für meine Blödheit aber irgendwie funktioniert das nicht bei mir. Da macht sich halt doch die Unwissenheit mit VBA bemerkbar.

Habe Excel 2007

Ich konnte alle Schritte soweit erledigen. Im aktuellen Tabellenblatt möchte ich nun den Makro ausführen - es kommt auch der angelegte "SortRows" - nur im Tabellenblatt nach "Ausführen" tut sich leider nichts.

Muss ich noch irgendwas an der Programmierung ändern oder sollte nach reinkopieren alles laufen?

[Dieter63]

Hallo ,

vielleicht hilft dir  das

Ganze Tabelle Markieren --> Rechte Maustaste -> Sortieren  -->  (ganz unten)  Benutzerdefiniertes Sortieren

Hier  kannst du dir  deine Spalten  (Ebene) hinzufügen  +  weitere Ebenen -->  auf / absteigend wie  du  willst

[RPP63]

Das hast Du falsch verstanden, Dieter!
Mein obiges Makro war noch nicht richtig getestet.
Nun aber:
Modul Modul1

Option Explicit 



Sub SortRows() 

Dim i& 

Application.ScreenUpdating = False 

With Tabelle1 

  .Sort.SortFields.Clear 

  For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row 

    .Range(.Cells(i, 4), .Cells(i, 13)).Sort .Cells(i, 4), xlAscending, Orientation:=xlSortRows 

  Next 

End With 

End Sub 

Datei im Anhang.

Gruß Ralf