Schleife Bereichssortierung Spalten variabel

Hi, habe nur rudimentäre Kenntnisse in VBA. Ich suche eine Lösung um eine Schleife zu generieren. Der unten angehängte Code zeigt das was ich machen möchte für die ersten beiden Spaltenbereiche. Ziel ist es dies über das gesamte Arbeitsplatz zu machen. Im Grunde genommen also eine Schleife mit Spalte +6 (aus A5:H510 wird I5:P:510 etc). Hat jemand eine Idee?

Sub Sort2()
' Sort Makro
Range("A5:G510").Select
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Add Key:=Range( _
"F6:F510"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Add Key:=Range( _
"D6:D510"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Core data").Sort
.SetRange Range("A5:G510")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("H5:N510").Select
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Add Key:=Range( _
"M6:M510"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Core data").Sort.SortFields.Add Key:=Range( _
"K6:K510"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Core data").Sort
.SetRange Range("H5:N510")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sort2() Dim SortBereich As String Dim KeyAdr1 As String, KeyAdr2 As String ' Sort Makro 'Sortierschlüssel 1,2,3 festlegen KeyAdr1 = "F6:F510" 'Sortierfeld 1 KeyAdr2 = "D6:D510" 'Sortierfeld 2 'Sortierbereich festlegen, GoSub starten SortBereich = "A5:G510": GoSub sort KeyAdr1 = "M6:M510" 'Sortierfeld 1 KeyAdr2 = "K6:K510" 'Sortierfeld 2 'Sortierbereich festlegen, GoSub starten SortBereich = "H5:N510": GoSub sort Exit Sub sort: 'Unterprogramm zum sortieren With ActiveWorkbook.Worksheets("Core data") .sort.SortFields.Clear .sort.SortFields.Add Key:=Range(KeyAdr1), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .sort.SortFields.Add Key:=Range(KeyAdr2), SortOn:=xlSortOnValues, _ Order:=xlDescending, DataOption:=xlSortNormal With .sort .SetRange Range(SortBereich) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Return End With End Sub

Dim x AS long For x = 1 to cells.specialcells(xlcelltypelastcell).column step 8 Hier dann die Programmierung für das Sortieren mit ... .Sortfields.add key:=cells(1, x + 5) ... .SetRange = Cells(1, x).resize(510, 8) Next

Beliebteste Forumthreads (12 Monate)

Schleife Bereichssortierung Spalten variabel

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread