Registriert seit: 20.01.2019
Version(en): 2002
Hallo,
ich habe mit Excel 2002 ein Makro aufgenommen.
Kann es sein dass dies mit Excel 2000 nicht abgespielt wird.
Es kommt der Fehler 1004
Vielen Dank !
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
ich vermute, da ist der Datenhorizont verbogen.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 20.01.2019
Version(en): 2002
"Datenhorizont verbogen" ?? Hm, kannst das bitte auch mal erklären ??
Registriert seit: 11.04.2014
Version(en): Office 365
Hallo,
damit wollte ich sagen, dass du dein Problem etwas genauer beschreiben sollst. Zumindest solltest du dein Makro hier mal einstellen.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter,
der Misserfolg ist ein Waisenkind
Richard Cobden
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo,
Zitat:ich habe mit Excel 2002 ein Makro aufgenommen.
Kann es sein dass dies mit Excel 2000 nicht abgespielt wird.
... ja, natürlich kann das sein, nur kann das eher nicht sein, daß Dir jemand hilft ohne den Code zu kennen.
Außerdem solltest Du mal über die Anschaffung einer aktuelleren Office-Version nachdenken.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 20.01.2019
Version(en): 2002
...hier der Code:
Sub Sortieren()
'
' Sortieren Makro
' Makro am 18.08.2018 von Herbert Pawlitschek aufgezeichnet
'
' Tastenkombination: Strg+s
'
Range("B3:N16").Select
Selection.Sort Key1:=Range("N3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("N18").Select
End Sub
Sub zurück()
'
' zurück Makro
' Makro am 18.08.2018 von Herbert Pawlitschek aufgezeichnet
'
' Tastenkombination: Strg+z
'
Range("B3:N16").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("N18").Select
End Sub
Registriert seit: 03.10.2018
Version(en): 2010 ProPlus / 2016 ProPlus
20.01.2019, 11:30
(Dieser Beitrag wurde zuletzt bearbeitet: 20.01.2019, 11:37 von Flotter Feger.)
Hallo du,
Mensch Jungs, ihr habt aber auch gar keine romantische Ader ...
das Ganze hat irgendwie ein klein bisschen von "Das Haus am See." ... oder nicht ?
Mir kommt so vor, als wäre das tatsächlich ein Brief aus der Vergangenheit, den ich gerade geöffnet habe. :17:
Die momentane Excel-Version heißt 2019 und hat die Versions-Nummer 17 ... das weißt du schon ... oder ?
"In VBA von Excel XP (d.h. im Objektmodell) gibt es dagegen eine ganze Reihe
von Erweiterungen und Änderungen. Excel 2002 VBA enthält 37 neue
Objekte, 178 neue Eigenschaften, 50 neue Methoden und 6 neue Ereig-
nisse. Wie viele geänderte Elemente es gibt, ist mir gerade nicht geläufig."
Das ist ein Zitat eines Posts, das vor 15 Jahren in einem M$-Forum gemacht wurde.
Wurde von 2000 auf 2002 nicht das Sortieren umgestellt ? Von den 'Keys:=' auf .Sort.Add ?
VG Sabina
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Registriert seit: 11.04.2014
Version(en): Office 2003 - Office 2007 - Office 365
Hallo,
was soll das denn jetzt, dass ihr die Leute aufgrund alter Excel Versionen Sprüche gebt? Ich nutze auch 2003.
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Folgende(r) 1 Nutzer sagt Danke an marose67 für diesen Beitrag:1 Nutzer sagt Danke an marose67 für diesen Beitrag 28
• didi*
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
20.01.2019, 11:38
(Dieser Beitrag wurde zuletzt bearbeitet: 20.01.2019, 11:38 von Kuwer.)
Hallo Herbert,
DataOption gab es bei E2000 noch nicht. Lass es einfach weg. Also statt Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal dann Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• didi*
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo,
(20.01.2019, 11:30)Flotter Feger schrieb: Wurde von 2000 auf 2002 nicht das Sortieren umgestellt ? Von den 'Keys:=' auf .Sort.Add ?
Zitat: ich habe mit Excel 2002 ein Makro aufgenommen. :17:
Gruß Uwe
|