Sub
MySort()
Dim
ErsteZeile_PWUG
As
Integer
Dim
LetzteZeile_PWUG
As
Integer
Dim
Spalte_PWUG
As
Integer
Spalte_PWUG = 14
ErsteZeile_PWUG = 5
LetzteZeile_PWUG = Cells(Rows.Count, Spalte_PWUG).
End
(xlUp).row
With
ThisWorkbook.Worksheets(1)
.Range(
"C"
& ErsteZeile_PWUG &
":"
&
"U"
& LetzteZeile_PWUG).Sort _
Key1:=.Range(
"N"
& ErsteZeile_PWUG), Order1:=xlAscending, _
Header:=xlNo, orderCustom:=1, _
MatchCase:=
False
, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End
With
End
Sub