Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem bei verwendung von Engl. + Deut. Version

Problem bei verwendung von Engl. + Deut. Version
02.02.2007 14:21:04
Engl.
Hi Leute,
ich habe einen Buck in meinem Program der nur bei den Deutschen Rechnern auftaucht.
Es handelt sich hierbei um einen ganz normalen Sortiervorgang, wo sich bei der Ausfuehrung der Debugger automatisch startet.
Der Code:
Range("A2:AM1000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Der einzige unterschied zwischen deutscher und englisher Version, den ich an dieser Stelle feststellen konnte, ist die Besetzung von xlSortNormal:
Engl: xlSortNormal = 0
Deut: xlSortNormal = Leer
Ich haben diesen Code-Bereich mit einem Makro auf der Englisch Version aufgenommen.
Vielen Dank im voraus fuer eure Antworten!!!
Gruss, Johannes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem bei verwendung von Engl. + Deut. Version
02.02.2007 14:29:42
Engl.
Hallo,
da du das Argument mit dem Standardwert xlSortNormal verwendest, kannst du es
auch ganz weglassen oder durch 0 ersetzen:
Range("A2:AM1000").Select ist nicht nötig.
Range("A2:AM1000").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2:AM1000").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=0
Gruß K.Rola
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige