Hallo Forum,
ich steh grad am Schlauch, ist es denn zum Sortieren nötig, das Blatt, auf dem sortiert werden soll, zu aktivieren? Oder was mache ich falsch:
- aktiviert ist das Blatt "Daten"
- der Bereich "DatenBereich" befindet sich im Blatt "Daten"
- der Bereich "DatenBereichHelp" befindet sich im Blatt "DatenHelp"
Range("DatenBereich").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("DatenBereichHelp").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Beim zweiten kommt die Meldung, dass der Sortierbezug nicht richtig ist...
Auch so geht's nicht:
Worksheets("Daten").Range("DatenBereich").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Worksheets("FilterHelp").Range("DatenBereichHelp").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2"), Order2:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Schreib ich's allerdings mit Activate, dann haut's:
Worksheets("FilterHelp").Activate
Range("DatenBereichHelp").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Worksheets("Daten").Activate
Geht das wirklich nur mit "Activate" oder mach ich da was falsch?
Vielen Dank im Voraus und Grüße
Franz