Hallo Zusammen,
habe da eine Frage.
Möchte einen variablen Bereich sortieren.
Der Bereich in der Tabelle ist heute A79:S114. Er ändert sich ständig. Wenn ich das zum Testen "fix" eingebe, sortiert er richtig. Mit der ermittelten Variablen funktioniert das sortieren nicht. Kann mir einer auf die Sprünge helfen?
Vielen Dank
Holger
Range(Cells(neuZeile483_a, 1), Cells(neuZeile483_e, 20)).Select
ActiveWorkbook.Worksheets("Daten Do").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Daten Do").Sort.SortFields.Add Key:=Range( _
"S1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Daten Do").Sort.SortFields.Add Key:=Range( _
"G1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Daten Do").Sort
'#####hier wird richtig sortiert
.SetRange Range("A79:S114")
'#####hier wird nicht sortiert
.SetRange(Cells(neuZeile483_a, 1), Cells(neuZeile483_e, 20)).Select
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With