Office: Tabellenblatt

Hallo liebe Community,

ich habe mir ein kleines Sub zum kopieren von Daten geschrieben.
Alles funktioniert soweit.
Allerdings fände ich es schöner, wenn ich den Codename eines Tabellenblatts ansprechen könnte.
Meine Versuche schlugen bisher jedoch all fehl (siehe ausgeklammerte set´s).


Code:

Was mache ich falsch, muss ich das vorher noch dimensionieren?
Jedoch kann man den Codename ja schon direkt abfragen, siehe zB. nachfolgendes sub.

Code:

Vielen Dank für Eure Hilfe und einen guten Rutsch allerseits!

Gruß
Alois

:)

 

Dein Code druckt nicht den Codenamen Code:

 

Hallo Alois,

Ich vermute mal Du hast den Codenamen nicht geändert.

Set rngQuelle = Workbooks("Quelle.xlsm").Tabelle1.Range("A1:A20")

 

Hallo Storax,

da hast Du recht.

tblQuelle.name = Tabelle1
tblQuelle.codename = tblQuelle

*rolleyes.gif*

 

Hallo Hajo_Zi,

auch so funktioniert der Zugriff nicht.

Es kommt die Fehlermeldung:

"Laufzeitfehler 438.
Objekt unterstützt die Methode oder die Eigenschaft nicht."

Den Codename habe ich im Eigenschaftsfenster (Name) geändert, zumindest wird mir das angezeigt.

Habe Die Dateien mal hinzugefügt.

Wie gesagt, ist nur wegen der Schönheit... mich wundert nur, dass ich so das Tabellenblatt nicht ansprechen kann.

Gruß

Alois

 

Na ja, die Frage ist, wo Du den Codenamen verwenden willst. Du kannst ihn nämlich nicht so verwenden, wie Du Dir das vielleicht vorstellst.

Bsp: In Datei A ist ein Code zum Öffnen der Datei B. In Datei B ist eine Tabelle mit dem Codenamen tblB. Diesen Codenamen kannst Du nicht im Code der Datei A verwenden.

Oder das hier geht nicht Code:

 

Tabelle1. geht nicht, da Du den Codenamen geändert hast. Du musst schon den geänderten Code Namen benutzen.#
Die Datei muss man nicht angeben da aktuelle.
Set rngQuelle = tblQuelle.Range("A1:A20")
MsgBox rngQuelle.Address

Ich vermute mal mit einer anderen Datei geht es nicht.

 

Nochmal, wenn Du ein Blatt über den Codenamen ansprichst, impliziert das immer, dass sich das Blatt in ThisWorkbook befindet, also in der Mappe, die den Code enthält.
Du könntest natürlich die zweite Datei als Referenz einbinden und dann über das VBA Projekt den Codenamen referenzieren, aber das ist in diesem Fall nicht wirklich zielführend.

 

Hallo Hajo,

manchmal ist mir die Lösung doch zu einfach!*grins

Mit der Anweisung funktioniert es nun.
Set rngQuelle = tblQuelle.Range("A1:A20")

Vielen Dank für Deine Hilfe und für das Erklären!


Eines verstehe ich jedoch immer noch nicht:

Set rngZiel = Workbooks("Ziel.xlsx").tblZiel.Range("A1")

Hier kommt ebenfalls der Fehler 438.

Bin ich wirklich so dumm?

Das Die Datei Ziel.xlsx im Code vorher zu aktivieren, kann ja nicht Sinn der Sache sein, oder?


Gruß

Alois

 

Hallo Storax,

alles klar... habs kapiert und gebe nun Ruhe *wink.gif*

Auch Dir vielen Dank für Deine Hilfe!

Gruß

Alois

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.