Gruppe
Allgemein
Bereich
Sortieren
Thema
Zeilenweise sortieren
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