Ich habe folgenden Makro, um mehrere Tabellenblattbereiche in Blöcken von jeweils 6 Zeilen untereinander, unabhängig voneinander zu sortieren:
Option Explicit
Sub MultiSort()
Dim iRow As Integer
For iRow = 1 To 100 Step 6
Range(Cells(iRow, 7), Cells(iRow + 5, 43)).Sort _
key1:=Cells(iRow + 2, 7), _
order1:=xlAscending, header:=xlGuess
Next iRow
End Sub
Ich würde nun gerne ein Abfrage einbauen, dass wenn in der Zelle Cells(iRow + 4, 3) das Wort "Summe" steht,
nach key2:=Cells(iRow + 3, 7) sortiert wird und wenn in der Zelle Cells(iRow + 5, 3) das Wort "Summe" steht,
nach key3:=Cells(iRow + 4, 7) sortiert wird.
Dabei soll aber jeweils nur nach einem Sortierschlüssel sortiert werden, nicht nach mehreren.
Leider reichen meine Programmierkenntnisse für diese Aufgabe nicht aus.
Ich hoffe, es kann mir jemand helfen!
Lieben Gruß,
Janine