ich bin's mal wieder.
Folgendes kleines Problem.
Ich möchte, dass versch. Bereiche in einem Tabellenblatt sortiert werden.
Das Tabellenblatt wähle ich über eine Combobox aus.
Ich hab's mittels Makroaufzeichnung versucht, aber es funzt nicht.
So sieht mein Versuch aus:
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then
x = Sheets(i).Name
Exit For
End If
Next
With Sheets(x)
Sheets(i).Select
RRange("AM6:AN15").Select
Selection.Sort Key1:=Range("AM6"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM27:AN36").Select
Selection.Sort Key1:=Range("AM27"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM48:AN57").Select
Selection.Sort Key1:=Range("AM48"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("AM76:AN85").Select
Selection.Sort Key1:=Range("AM76"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("BJ7:BV10").Select
Selection.Sort Key1:=Range("BV7"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Danke für euere Hilfe.
Matthias