Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausdruck Tabellenblätter mit VBA

Ausdruck Tabellenblätter mit VBA
26.02.2008 12:29:46
alex
Hi,
kann mir jemand sagen, wie es möglich ist mit einem Makro von Tabelle 1 (per Schaltflächenbetätigung) aus, die Tabellenblätter 2-119; und zwar pro Tabellenblatt die Seiten 1 und 2; auszudrucken. Die Tabellenblätter sind mit Nachnamen bezeichnet. Wenn sie keinen Nachnamen als Bezeichnung haben, heißen sie wieder Tabelle... , eben mit der entsprechenden Nummer. Diese Tabellenblätter sollen nicht ausgedruckt werden, sondern nur die, die nicht mit "Tabelle" in der Bezeichnung beginnen.
danke,
alex

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck Tabellenblätter mit VBA
26.02.2008 12:43:12
Rudi
Hallo,
als Ansatz:
for each wks in workbooks
if not wks.name like "Tabelle*" Then wks.printout 1,2
next wks
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Ausdruck Tabellenblätter mit VBA
26.02.2008 13:12:00
alex
hallo rudi,
so hab ich das jetzt:

Sub ausdruckleb()
For Each wks In Workbooks
If Not wks.Name Like "Tabelle*" Then wks.PrintOut 1, 2
Next wks
End Sub


da druckt er aber nur die Seiten 1 und 2 der Tabelle 1.

AW: Ausdruck Tabellenblätter mit VBA
26.02.2008 13:14:00
Rudi
Hallo,
Tippfehler! Sorry
for each wks in worksheets
natürlich.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Ausdruck Tabellenblätter mit VBA
26.02.2008 13:15:00
Wolli
For Each wks in ActiveWorkbook.Worksheets könnte besser klappen.
Gruß, Wolli

AW:Erledigt, danke
26.02.2008 13:51:50
alex
hat geklappt. war grausam...
bis ich die ganzen druckaufträge abgebrochen und den Drucker zum stehenbleiben gebracht habe.Puhh!
danke nochmal

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige