Tabellen Drucken aus einer Excel Liste
Wehr kann mir weiterhelfen
Ich möchte in Excel eine liste erstellen in der verschiedene Tabellen
Aufgeführt sind.
Durch Markierung einer oder mehrere Tabellen und durch anschließend
eines “Druck“ Button den Druck der Angewellten Tabellen ausdrucken lasen,
ohne diese vorher zu Öffnen und den Druck einzeln auszuführen.
mfg. vanesilv
Bäuerle Vanesilv „EXCEL Tabellen Drucken aus einer Excel Liste“
hallo vanesilv
unklar ist, wo sich deine Tabellen befinden,
Im Commandbutton1 wäre folgender Code denkbar:
Dim Zelle As Range
Set Zelle = Selection
Zelle.Cells(1).Select
'Einzelne Zeile (Schleife)
For Each Zelle In Zelle
Set d = Selection
' T = Selection.Text 'hier am anfang den hochkomma entfernen
' Set d = Application.Worksheets(T) 'wenn die Tabelle im gleichen Workbook ist
Application.ScreenUpdating = False
d.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
Set d = Nothing
Next Zelle
Du mußt für die externen Tabellen den genauen Weg in die Tabelle schreiben oder dann im Code ersetzen.
Sind die Tabellen im gleichen Workbook, so schreib den Namen der Tabellenblätter in die Tabelle
viel Spass Bäuerle
