Zahlen im Bereich horizontal sortieren
15.12.2021 15:26:42
Dieter(Drummer)
Mit dem aufgeführten Code werden im Bereich A2:F4 die Zahlen horizontal aufsteigend sortiert. Es wird aber nur die Zeile/Bereich A2:F2 sortiert, der Folgebereich C3:F3 und D4:F4 wird NICHT ebenfalls aufsteigend sortiert.
Wie muss der Code lauten, damit der gesamte Bereich A2.F4 horizonta, je Zeile,l aufsteigend sortiert wird?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Mein jetziger Code:
Sub Sort_Horizontal() 'Zahlen sortieren
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A2:F2") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A2:F4")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub