Makro Laufz 1004 - help please - auto_open
Hallo zusammen,
ich hab ein Problem mit einem Makro - es sei erwähnt: Bin kein Spezi und noch ziemlich neu was Makros und co betrifft.
Dieses Makro soll eine Tab auto sortieren, damit bestimmte Daten in einem Steuerelement immer schön nach Alphabet angeordnet erscheinen. Das Makro lautet wie folgt und wirft Laufzeitfehler 1004 raus. Kann jemand helfen??
vielen Dank schon mal
Sub Auto_open()
'
' Auto_open Makro
' Makro am 10.04.2007 von benning aufgezeichnet
'
'
Sheets("Adressen Eingabeliste").Select
Rows("3:1000").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=x1SortNormal
Sheets("TN Stammdaten").Select
End Sub
Antwort schreiben
Antwort 1 von Beverly vom 10.04.2019, 14:33 Options
Hi,
dein Codeteil
DataOption1:=x1SortNormal
muss heißen
DataOption1:=xlSortNormal
bis später,
Karin
Antwort 2 von Planet74 vom 10.04.2019, 15:12 Options
Danke für deine Hilfe, klappt aber nicht...is doch ein kleines L oder?
Antwort 3 von Beverly vom 10.04.2019, 16:24 Options
Hi,
richtig, ist ein kleines "L". Ich habe deinen Code getestet und er funktioniert mit dieser Korrektur - andernfalls hätte ich keine Antwort gepostet.
Da du nicht schreibst, was nicht klappt, kann ich dazu auch nichts sagen.
Bis später,
Karin
Antwort 4 von Planet74 vom 10.04.2019, 17:51 Options
Also, beim öffnen der Datei gibt er einen Laufzeitfehler 1004 an - mit dem Text Anwendungs- oder objektdefinierter Fehler und diese Zeilen werden markiert dargestellt:
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
kann es an meiner Excel Version liegen (2000er)? ..und danke für deine Geduld und Mühe!! ;-)
Frank
Antwort 5 von Beverly vom 10.04.2019, 20:09 Options
Hi Frank,
es liegt an der Version. DataOption gibt es erst ab Version 2002 (XP). Lasse den Schalter einfach weg, dann sollte es auch unter 2000 funktioneren.
Bis später,
Karin