Der Code:
With ThisWorkbook.Sheets("Daten")
.Range("B" & zeilennr - anzzeilen & ":B" & zeilennr - 1).Select
.Selection.Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
funktioniert leider nicht. Er markiert mir zwar den Range bereich, sortiert aber nichts.
Wie kann ich das ActiveWorksheet ändern, damit ich nicht immer die With ThisWorkbook.Sheets("Daten") und dann .Range usw nehmen muss?
Vielen Dank