Hallo zusammen,
ich habe in einem meiner Makros eine Sortierung eingebaut, leider sortiert diese nur die Spalte N ich möchte aber das es die Range C bis U nach Spalte N sortiert.
Wie bekomme ich das hin?
Dim ErsteZeile_PWUG As Integer
Dim LetzteZeile_PWUG As Integer
Spalte_PWUG = 14
ErsteZeile_PWUG = 5
LetzteZeile_PWUG = Cells(Rows.Count, Spalte_PWUG).End(xlUp).Row
'Sortieren des Kommunikationsformulars nach PWUG
With ThisWorkbook.Worksheets(1)
.Range("N" & ErsteZeile_PWUG & ":" & "N" & LetzteZeile_PWUG).Sort _
Key1:=.Range("N" & ErsteZeile_PWUG), Order1:=xlAscending, _
Header:=xlNo, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
|