Thema: Zeilenweise sortieren

Home

Gruppe

Allgemein

Problem

Wie kann ich alle Zeilen eines Arbeitsblattes so sortieren lassen, daß die Werte in jeder Zeile für sich aufsteigend erscheinen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub ZeilenSortieren()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      Rows(iRow).Sort _
         Key1:=Cells(iRow, 1), _
         Order1:=xlAscending, _
         Header:=xlGuess, _
         OrderCustom:=1, _
         MatchCase:=False, _
         Orientation:=xlLeftToRight
      iRow = iRow + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren

Pivot nach "% Differenz von" sortieren	Todo-Liste sortieren
mit combobox sortieren	Daten aus CSV per Makro sortieren
Zellen aus Liste in Spalten korrekt umsortieren	Sporttabelle sortieren
revers sortieren	Sortieren mithilfe Excel Makro
Automatisches sortieren mit Hilfe einer Formel	Sortieren von Datumswerten in Zelle durch VBA
sortieren mit Zeilen hinzufügen	Link ändert sich beim Sortieren
zweidimensionales Array sortieren	Zahlenwerte mit QuickSort in Spalte sortieren
Sortieren-Makro erweitern	Liste automatisch neu erstellen und umsortieren
ohne Vornamen sortieren	Laufzeitfehler beim sortieren
Sortieren	Sortieren
Spalte automatisch sortieren per Makro	Sortieren einer Tabelle mit VBA
Auslesen und sortieren	Überschriften zum Sortieren in Zeile 2
Sortieren auf anderer Tabelle	VBA alphabetisch sortieren
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Arbeitsblätter sortieren Fehler bei Umlauten	bestimmten Bereich sortieren
Sortieren-Fehler	ListBox sortieren
Bei Klick auf Spaltenköpfe Tabelle sortieren	per Formel sortieren + andere spalte mitnehmen
Daten mit Excel sammeln und sortieren	Sortieren ein Fehler, BITTE nochmal helfen
Daten sortieren	Sortieren klappt nicht
Range sortieren - Frage zu Sort Key	Jedes 2 Wort umsortieren
Sortieren nach Textinhalt einer Zelle	Arbeitsblätter nach Datum sortieren
Daten nach Datum zuordnen/sortieren	Daten sortieren, 0 unten anstellen
Rang richtig sortieren	Pivot Table nach dem Ergebnis autom. sortieren
ListBox sortieren, trotzdem Daten richtig auslesen	Daten nach Import untereinander sortieren
suchen und Sortieren	Sortieren