Aufsteigend sortieren

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Pascal.

    Aufsteigend sortieren

    Hallo

    Hab schon wider ein Problem.
    Verstehs einfach nicht warum das nicht funktioniert!
    Und zwar geht es darum dass ein Makro von Tabelle 1, die Spalte A in Tabelle 2 aufsteigend sortiert

    Hab dann den Code mit Hilfe vom Makro recorder aufzeichnen lassen:

    Sheets("Tabelle2").Select
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

    Komischerweise bekomm ich einen anwendungs- oder objektdefinierter fehler...versteh nicht ganz warum, denn bis jetzt hats eigentlich immer funktioniert wenn ich etwas aufgezeichnet habe...

    Weis vl wer was nicht stimmt`?
    Es fehlt der Verweis auf "Tabelle2" als aktuelles Tabellenblatt

    Visual Basic-Quellcode

    1. Dim objWS As WorkSheet
    2. Set objWS = ActiveWorkBook.Sheets("Tabelle2")
    3. With objWS
    4. .Columns("A:A").Select
    5. .Selection.SortKey1:=Range("A1"), Order1:=xlAscending, ...