Ich möchte den Bereich einer Tabelle (z.B. a5:e8), dem ich einen Namen (z.B. bereich1) gegeben habe, zeilenweise sortieren, d. h., daß die Werte innerhalb einer Zeile absteigend sortiert werden sollen.
Wer kann mir helfen ? Danke.
Sub Bereich1_sortieren()'...wird nach 1. Spalte sortiert (OrderCustom:=1)
Range("A5:E8").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub