---

Irgendwie bekomme ich es nicht hin, Ich habe eine ausgeblendete Tabelle, die über ein Makro sortiert werden soll. Diese Lösung funktioniert:

Code:

---

   Application.ScreenUpdating = False
    Sheets("Kundenstamm").Visible = True
    Sheets("Kundenstamm").Select
    Columns("A:K").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Kundenstamm").Visible = False
    Sheets("Kunden").Select
    Application.ScreenUpdating = True

---

Mich stört aber jetzt der Würgarround mit dem screenupdating, visible und select. Im Forum habe ich noch einen Beitrag von Thomas gefunden und versucht es entsprechend anzupassen:

Code:

---

     Worksheets("Kundenstamm").Columns("A:K").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

---

das liefert mir aber eine Fehlermeldung (1004, Sortierbezug ist ungültig). Wo habe ich meinen Gedankenfehler   ? HAb schon etliches versucht, komme aber auf keinen grünen Zweig.

Axel

Achja: Lösung für 2003

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

[Diese Nachricht wurde von Axel.Strasser am 16. Mrz. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel,

    Worksheets("Tabelle1").Columns("A:F").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Dieser Code funktioniert bei mir im Excel 2003 SP2.

Gruss
Mike

------------------

The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel

Damit der Code bei mir funktioniert, musste ich ihn wie folgt ergänzen.

Code:

---

Worksheets("Kundenstamm").Columns("A:K").Sort Key1:=Worksheets("Kundenstamm").Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Suuuuper, das war es   

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP