Nicht aktives Sheet sortieren

Forumthread: Nicht aktives Sheet sortieren
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Nicht aktives Sheet sortieren

24.11.2013 22:10:35

Albert

Guten Abend Leute,
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

Wäre euch um Hilfe echt dankbar.
Gruß
A.M.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Gelöst... danke! owT

24.11.2013 23:06:28

Albert
AW: Gelöst... danke! owT

24.11.2013 23:55:05

Gast
So gelöst...! owT

25.11.2013 08:28:37

Albert
Wenn mit Variablen, dann auch konsequent

25.11.2013 08:35:31

Daniel

Gelöst... danke! owT

24.11.2013 23:06:28

Albert

AW: Gelöst... danke! owT

24.11.2013 23:55:05

Gast

Und wie gelöst?
Gruß SP

So gelöst...! owT

25.11.2013 08:28:37

Albert

Moin SP,
ich habs so gelöst!
Dim Bereich As Range
Set Bereich = Sheets("Daten").Range("A3:K2000")
Bereich.Sort Key1:=Sheets("Daten").Range("C3"), Order1:=xlAscending, Key2:=Sheets("Daten").Range("A3"), order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Gruß und schöne Woche
A.M.

Wenn mit Variablen, dann auch konsequent

25.11.2013 08:35:31

Daniel


Bereich.Sort Key1:=Bereich.Cells(1, 3), Order1:=xlAscending, Key2:=Bereich.Cells(1, 2), order2:=xlAscending, Header:=xlGuess, _

die Keys müssen immer Bestandteil des Zellbereichs sein, der vor der SORT-Funktion steht (ist ja auch irgendwie logisch), daher sollte man sie auch immer in Abhängigkeit von diesem beschreiben.
Dadurch senkt sich der Arbeitsaufwand, wenn du den zu sortierenden Zellbereich oder den Blattnamen änderst.
Gruß Daniel