Hallo weltbestes Forum
ich möchte mit VBA in einer Liste Daten sortieren.
Wenn ich für die Abläufe aufzeichne schreibt Excel folgenden Code:
Range("A2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Ich möchte aber nicht auf das Datenblatt wechseln und ändere den Code wie folgt ab:
Set a = Sheets("KD")
a.Range("A2:M2").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Problem ist nur, das funktioniert nicht. Excel meldet einen Fehler.
Ich suche schon lange nach einer Lösung, habe aber bislang nichts gefunden.
Kann mir jemand einen Tipp geben. Im Voraus schon mal vielen Dank.
Gruß Thomas
PS: das Problem liegt sicher irgendwo zwischen Tastatur und Stuhl ...