Fehler 1004 Methode Range für das Objekt Global

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Anugyan
der die das Makro :-)
Da wurde auch ich neugierig :-)
Laut http://www.leo.org (deutsch-englisch-Übersetzung) heißt es DAS MAKRO.
(in Hans' Forum lernt man sogar noch was für's Leben...grins)
API
Ich denke schon, dass es per API möglich ist. die Einstellung bzgl. des Listentrennzeichens zu überprüfen. Aber leider hab ich keine Idee, wie. :-)
Vielleicht solltest Du Dich mal in VB-Foren umsehen.
1004 = Auffangbarer Fehler?
Jeder Befehl, der mit einer Nummer + Meldung das Programm abbricht, ist auf- bzw. abfangbar.
Aber auch hier wüsst ich jetzt nicht, wie eine sinnvolle Fehlerroutine aussehen könnte.
Name für Zellbereich
Wenn sich die Zellen nicht ändern, und das Löschen der Formeln auch bei Verwendung von Namen möglich ist, dann wäre dieser Ansatz vielleicht die schnellste Lösung.
Aber warum denn For Each....?
Würde das Ganze nicht so auch funktionieren:
Range(ZellbereichName).FormulaLocal = ""
ist doch das Gleiche wie
Range(("AF3,AF5,AF8,AF10,AF18....").FormulaLocal = ""
Oder macht sich bei mir gerad ein Denkfehler breit? :-)
Ciao
Thorsten

Hallo Thorsten,
du bist wohl auch eher ein Nachtmensch, dass du so spät noch vor dem Kasten sitzt?!
Ich danke Dir für Deine Mühe.
So im Halbschlaf ist es mir gestern gedämmert, dass ich es leicht hätte überprüfen können, wenn ich das Listentrennzeichen umgeschaltet hätte. Ja und heute mußte ich feststellen, dass DAS Makro mit beiden Listentrennzeichen läuft!
Das mit dem Fehler auffangen hätte ich mir so vorgestellt:
On Error GoTo neuFehl
Error 1004 'simuliert den Fehler, der im Moment (leider?!) nicht auftritt
Range("AF3;AF5;AF8;AF10;AF18;AF20;AF28;AF30;AF38;AF40;AF48;AF50;AF58;AF60;AF68;AF70;AF78;AF80;AF88;AF90;AF98;AF100;AF108;AF110;AF118;AF120").Formula = ""
On Error GoTo 0
neuFehl:
If Err 0 Then
Range("AF3,AF5,AF8,AF10,AF18,AF20,AF28,AF30,AF38,AF40,AF48,AF50,AF58,AF60,AF68,AF70,AF78,AF80,AF88,AF90,AF98,AF100,AF108,AF110,AF118,AF120").Formula = ""
On Error GoTo 0
End If
Jedoch läßt sich der 1004er scheinbar nicht abfangen (steht auch nicht in der Liste in der Hilfe)!
Dein Vorschlag: Range(ZellbereichName).FormulaLocal = ""
würde gehen, hat jedoch den Nachteil, das es zunächst nicht abwärtskompatibel ist, da in älteren Dateien in denen ich nur das Makro ersetzen möchte, der Bereich nicht definiert ist. (Eine interessante Beobachtung bei dieser Gelegenheit: der Versuch über "Namen defienieren" mehr als 13 Zellen über Anklicken einzugeben scheiterte; dagegen erst den Bereich von insgesammt 26 nicht zusammenhängenden zu Markieren und dann im Namensfeld den Namen eingeben funktionierte.)
Die eigentliche Frage bleibt offen, warum der Fehler 1004, "die Methode Range für das Objekt_Global ist fehlgeschlagen", einmal bei einer Mehrfachauswahl mit Komma als Trennungszeichen und ein andersmal mit Semikolon auftritt?
Gruß
Anugyan

Beliebteste Forumthreads (12 Monate)

Fehler 1004 Methode Range für das Objekt Global

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler 1004 Methode Range für das Objekt Global

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread