ich haber immer noch ein Problem mit dem sortieren eines festgelegten Bereiches. Wer kann mir helfen?
Tabelle sieht folgendermassen aus:
Geschäft: Januar Februar März
1 2 3 4 5 6 7 8 9 10 11 12
Geschäft 1 x
Geschäft 2 x
Geschäft 3 x
Geschäft 4 x
Es sollte gemäss den Spalten welche ein "x" enthalten sortiert werden d.h. dasjenige Geschäft (in diesem Falle 4) sollte als erste Zeile unter der Überschrift Geschäft sein bis zum Geschäft 5 als letztem.
Mein code:
Sub Sortieren()
Dim rngGesamt As Range
With ActiveSheet
Set rngGesamt = _
.Range(.Cells(.Range("Geschäft:").Row + 1, _
.Range("Geschäft:").Column), _
.Cells(.Range("Juni").Row + 2, _
.Range("Juni").Column))
End With
rngGesamt.Sort key1:= ??????, order1:=xlDescending
End Sub
Vielen Dank
Gruss Daniel