Gruppe
Allgemein
Problem
Wie kann ich mehrere, nicht zusammenhängende Tabellenblattbereiche über Schaltflächendruck absteigend sortieren?
StandardModule: basMain
Sub MultiSort()
Dim iRow As Integer
For iRow = 1 To 19 Step 6
Range(Cells(iRow, 1), Cells(iRow + 4, 8)).Sort _
key1:=Cells(iRow + 1, 7), _
order1:=xlAscending, header:=xlYes
Next iRow
End Sub