Office: Mehrere Tabellenblätter selektieren

Guten Tag zusammen,

ich will per VBA in meiner Tabelle mehrere Blätter ausblenden. Ich will nur die Blätter ausdrucken die relevant sind und der Rest will ich ausblenden.

Jetzt habe ich zwei Herausforderungen:

1. bestimmte Blätter werden immer ausgeblendet; der Name der Blätter werden aber vom Anwender umbenannt. Ich kann diese Blätter also nicht mit "Tabelle1" ansprechen.
2. Acht bestimmte Blätter sollen nur ausgeblendet werden, wenn die Zelle A7 leer ist. Auch diese Blätter werden umbenannt.

Zu 1: Wie kann ich Sheets(Array("Tabelle1", "Tabelle2"... anpassen damit ich diese Tabellen nach dem umbenennen trotzdem selektieren kann?

Zu2: Wie sieht der Code aus wenn ich nur für diese acht Blätter die Abfrage der Zelle A7 machen will?

Ich hoffe ich konnte mich verständlich ausdrücken und ihr könnt mir helfen.
Vielen Dank schon im Voraus!
Grüsse, Jenalo

:)

 

Hallo Jenalo,

Wenn es nicht der Name ist, an dem man das Blatt bestimmen kann, woran dann? An irgendetwas muss man das erkennen.

Wenn nur der angezeigte Blattname geändert wird, kannst Du die Blätter immer noch eindeutig (und sicherer) über ihren VBA-Codenamen ansprechen. Wenn Du im VB-Editor mal Deine Blattnamen anschaust, gibt es da 2 Namen: Einen vor der Klammer, einen in der Klammer. Der Name in der Klammer ist der im Reiter sichtbare, der vor der Klammer der VBA-interne Name, der vom Nutzer (nicht so einfach) geändert werden kann.

Auch hier die Frage, woran Du die Blätter bestimmen kannst.

Grüße
EarlFred

 

Hallo EarlFred,

danke für deine Antwort.
Genau das habe ich gesucht; die VBA-Codenamen. Aber diese werden im VBA-Code anders angesprochen:
nicht >>Sheets(Array("Tabelle1", "Tabelle2"...

 

Hallo Jenalo,

so z. B. :
Code:

Tabelle1 und Tabelle3 sind die VBA-Codenamen, die auch das Tabellenobjekt selbst darstellen.

Grüße
EarlFred

 

Moin,
schau auch mal hier nach: Codename statt Blattname | Excel ist sexy!

 

Guten Morgen zusammen,

das ist super!!! Genau das habe ich gesucht. Vor allem der Link zu "Excel ist sexy" habe ich gesucht und gesucht aber nicht mehr gefunden.

Werde es mal ausprobieren. Danke nochmals!

Wüsche allerseits einen schönen Tag!
Grüsse, Jenalo