Sub
TestIt()
TestSort ThisWorkbook.Name,
"Tabelle2"
End
Sub
Private
Sub
TestSort(WbName
As
String
, ShName
As
String
)
Dim
Rng
As
Range
With
Workbooks(WbName).Sheets(ShName)
If
.AutoFilterMode
Then
.Cells.AutoFilter
letztespalte = .Cells.Find(
"*"
, .Cells(1), -4123, 2, 2, 2,
False
).Column
letztezeile = .Cells.Find(
"*"
, .Cells(1), -4123, 2, 1, 2,
False
).Row
Set
Rng = .Range(.Cells(2, letztespalte - 1), .Cells(letztezeile, letztespalte))
Rng.Sort Key1:=Range(Rng.Address), Order1:=xlDescending, Header:=xlGuess, MatchCase:=
False
, Orientation:=xlTopToBottom
End
With
End
Sub