Nicht aktives Sheet sortieren
24.11.2013 21:10:35
Albert
ich hab diesen Code mit dem Makrorecorder aufgezeichnet.
Ich möchte den Code verwenden, ohne dass das Sheet mit der zu sortierenden Tabelle aktiv ist.
Sub Sortieren()
j = Sheets("Regelschichtplan").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A5:OH" & j).Select
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Add Key:=Range( _
"B6:B" & j), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Add Key:=Range( _
"A6:A" & j), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Regelschichtplan").Sort
.SetRange Range("A5:OH" & j)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Gruß
A.M.