Aufruf von ausgeblendeten Tabellenblättern

27/04/2010 - 12:23 von Reinhold | Report spam
Hallo zusammen,

mit dem Makro

Sub Hoffmann()
Sheets("Übersicht").Select
Sheets("Hoffmann").Visible = True
Sheets("DA Hoffmann").Visible = True
Sheets("Hoffmann").Select

rufe ich aus einer Tabelle, die in Excel 2007 erstellt wurde, zwei Blàtter
auf, die normalerweise ausgeblendet sind.

Die Tabelle enthàlt etwa 50 Namen, die in Spalte B mit Name, Vorname
eingetragen sind. Gepflegt wird sie von einer dritten Person. Nach dem oben
aufgeführten Makro müsste für jeden Eintrag ein neues Makro erstellt werden,
was ich aber vermeiden möchte.

Gibt es einen anderen Weg, die für einen Kunden eingerichteten Tabellen
aufzurufen und den Aufrufbutton nur zu kopieren ?

Vorab vielen Dank für die Hilfe.

Mit freundlichem Gruss

Reinhold
 

Lesen sie die antworten

#1 HeliKopf
27/04/2010 - 14:19 | Warnen spam
Hallo Reinhold,

ich weis gerade nicht ganz was Du machen willst aber per Makro kannst
Du auch auf ausgeblendete Tabellen zugreifen. Mit
Sheets("Hoffmann").Range("A3:A10").Copy kannst Du z. B. etwas
kopieren, auch wenn die Tabelle nicht sichtbar ist. Du kannst aber
auch den Tabellennamen dynamisch nutzen, entweder über eine Eingabe
oder durch Auslesen aus einem Tabellenfeld:

1. Abfragen beim User: -> strBlatt = Inputbox "Bitte Tabellenname
eingeben" -> Sheets(strBlatt).Visible = True
2. Aus Zelle lesen: -> strBlatt = Sheets("Eingabe").Range("A1").Value -
Sheets(strBlatt).Visible = True



Viel Erfolg & Servus, Helmut.

Ähnliche fragen