Sub
Sort()
Dim
LRow
As
Long
Application.AddCustomList ListArray:=Array(
"H"
,
"A"
,
"B"
)
With
Sheets(
"Basis"
)
LRow = .Cells(.Rows.Count,
"A"
).
End
(xlUp).Row
.Names.Add Name:=
"Daten"
, RefersTo:=.Range(
"A1:H"
& LRow)
.Sort.SortFields.Clear
.Range(
"Daten"
).Sort key1:=.Range(
"A1"
), order1:=xlDescending, Header:=xlYes
.Range(
"Daten"
).Sort key1:=.Range(
"H1"
), order1:=xlDescending, ordercustom:=Application. _
CustomListCount + 1, Header:=xlYes
.Range(
"Daten"
).Sort key1:=.Range(
"G1"
), order1:=xlDescending, Header:=xlYes
End
With
Application.DeleteCustomList Application.CustomListCount
End
Sub
</pre>