Mehrere Zeilen mit Einzelweten nach Spalten absteigend oder aufsteigend sortieren
#1
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
Top
#2
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top
#3
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.
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top
#4
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
Top
#5
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!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top
#6
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?
Top
#7
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
Top
#8
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


Angehängte Dateien
.xlsm   SortRows.xlsm (Größe: 16,27 KB / Downloads: 3)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top


Gehe zu:


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