Gruppe
Allgemein
Problem
Wie kann ich alle Zeilen eines Arbeitsblattes so sortieren lassen, daß die Werte in jeder Zeile für sich aufsteigend erscheinen?
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