Office: Objektvariable oder With-Blockvariable nicht festgelegt

Hi Leute,

Ich versuche mich gerade dabei gewisse Variablen global zur Verfügung zu stellen und diese bei Workbook_Open() mit bestimmten Werten zu versehen.

Meine Arbeitsmappe beinhaltet 7 relevante Arbeitsblätter.
Im "Modul 1" habe ich folgenden Code stehen:
Code:

Somit sollten ja die Variablem ws1 bis ws7 global zur Verfügung stehen.

Beim öffnen der Exceldatei sollen nun die global definierten Variablen befüllt werden - Dazu habe ich unter "ThisWorkbook" folgendes eingetragen:
Code:

Mein Ziel ist es, dass ich gewisse Variablen einmal beim Öffnen definiere (mit definierten Werten) und diese dann in allen Arbeitsblättern zur Verfüg stehen.

Ich hätte es auch folgendes probiert mit dem gleichen negativen Ergebnis:
Modul 1:
Code:

ThisWorkbook:
Code:

Wieso meint er, dass die Variable ws1 nicht definiert ist?

Habt besten Dank für Eure Hilfe

:)

 

Worksheets("Name1") ist falsch. Fehlt da nicht Set
Set WS1 = Worksheets("Name1")

 

Ich bin ja so doof...
Hab den Fehler gerade gefunden.
Code:

Ein Set war die Lösung...*rolleyes.gif*
Hat sich somit erledigt.

 

Hallo,

für mich erschließt sich der Sinn dieser Aktion(en) nicht. Die Blattnamen einer Arbeitsmappe sind doch ohnehin definiert. Mir solch einem Makro:

Code:

kannst du die abfragen und ausgeben. Am besten beschreibst du noch mal etwas detaillierter was dein Ziel ist.

 

Hallo Klaus-Dieter,

In den Arbeitsblättern greife ich von Blatt A auf Blatt B und/oder Blatt C zu.
Also Kreuz und Quer - Genauer will ich da jetzt nicht drauf eingehen warum.
Es kommt halt drauf an was ich in welchen Arbeitsblatt mache - dementsprechend tut sich dann in anderen Blättern was *wink.gif*

Ich will diese einfach global definiert haben um eben nicht bei Änderungen der Reihenfolge der Blätter oder Umbenennung, in allen Blättern die Änderungen vornehmen zu müssen.

Die Arbeitsblätter sind jetzt nur ein kleiner Teil vordefinierter Variablen.
Da hab ich noch jede Menge davon, nur hab ich mal mit einer Variable beginnen müssen und das waren eben die Arbeitsblätter.

Alles gut! Danke Euch jedenfalls für die Antworten.

 

Hi,

Da hast Du die Tabellenreiter so schön mit aussagekräftigen Namen versehen um sie dann anschließend via:

Code:

wieder zur Unkenntlichkeit zu verdonnern. Irgendwann wirst Du Dich fragen, mein Gott, welches Blatt war jetzt ws1 doch gleich nochmal?

Das macht die Sache nicht nur unnötig umständlich sondern auch höchst unsinnig.
Die ganze "Setterei" kannst Du Dir überdies sparen, wenn Du nicht nur die Beschriftung des Tabellenreiters in aussagekräftige Bezeichnungen änderst, sondern auch den Codenamen des Sheets. Statt Tabelle1 halt in "tAllgemein".

Somit kannst Du, ohne eine einzige Worksheetvariable deklarieren und setten zu müssen, in Zukunft sofort den Codenamen des Tabellenblatts nutzen und weißt zudem auch gleich, welches gemeint ist.

Es reicht also diese Verwendung (ohne Variablendeklaration und deren Setterei):

Code:

 

\@R J

Jetzt ist es mir wieder passiert - sorry die Namen wollte ich bewusst nicht veröffentlichen *upps
Die Namen der Arbeitsblätter werden nicht über VBA verändert!
Sollte sich aber mal was verändern, Reihenfolge oder Namen, so will ich diese dann zentral an einer Stelle vorfinden und mich nicht durch alle Arbeitsblätter wühlen - Denn auch die Anzahl der Arbeitsblätter kann und wird steigen.

 

...seltsame Argumente.... und keins davon spricht gegen meinen Vorschlag...
Ich vermute mal, Du hast den Sinn und Nutzen nicht verstanden...

 

Mach Dir nicht zu viele Gedanken darüber. Eine brauchbare Antwort auf meine Frage hätte es auch getan.
Aber ich bin es nach Jahrzehnten der Internetnutzung bereits gewöhnt, dass man viel lieber die Rechtschreibung kritisiert, als eine Lösung zu bringen.

In meinen Augen war @Hajo_Zi der Einzige, der hier auf meine Frage eingegangen ist und genau das geschrieben hat, worauf ich dann selber auch noch gekommen bin, wie man am zeitlichen Unterschied der Antworten erkennen kann.
Mein Projekt funktioniert fehlerfrei in der Form wie ich es wollte, bekommt vielleicht keine Auszeichnung aber auf das lege ich in diesem Falle auch keinen Wert.

Ich wünsche dennoch schöne und besinnliche Feiertage.

 

Hi,

auch Dir, schöne und besinnliche Feiertage, aber die Aussage:

sagt mir, Du hast tatsächlich nicht verstanden, worauf ich hinauswill, denn Du hattest eine brauchbare Antwort von mir erhalten. Mit Kritik an Deiner Rechtschreibung (an der ich übrigens nichts auszusetzen habe) hat das absolut nichts zu tun.
Lass Dir folgende Aussage noch mal durch den Kopf gehen: