Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code für alle Tabellenblätter drucken...

Code für alle Tabellenblätter drucken...
13.10.2006 11:12:23
maier.o
Hi,
ich habe eine Excel Datei mit insgesamt 11 Tabellenblättern.
Nun möchte ich einen Button erstellen, der beim anklicken alle Seiten jedes Tabellenblatts ausdruckt.
Den Button erstellen und Makro zuweisen kann ich mitlerweile :-) aber nicht die Markos "programieren"...
Kann mit jemand einen möglichst einfachen Code sagen?
Danke schon im vorraus.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code für alle Tabellenblätter drucken...
13.10.2006 11:22:40
UweD
Hallo
so z.B.

Sub AlleTabellenDrucken()
ActiveWorkbook.PrintOut Copies:=1
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Code für alle Tabellenblätter drucken...
13.10.2006 11:23:28
harry
Hallo,
folgender Code müsste funktionieren:

Sub test()
Dim wks As Worksheet
For Each wks In Worksheets
Sheets(wks.Name).PrintOut Copies:=1
Next
End Sub

Gruß
Harry
AW: Code für alle Tabellenblätter drucken...
13.10.2006 11:23:56
heikoS
Hallo maier.o,
das ist eine Standardeinstellung im Druckdialog - geh ´mal ins Menü Datei | Drucken und guck nach unten links, dort kannst Du den Bereich, den Du drucken möchtest, auswählen.
Als Makro sollte das so gehen:

Sub Mappe_drucken()
ActiveWorkbook.PrintOut Copies:=1
End Sub

Klappt´s?
Gruß Heiko
Anzeige
AW: Code für alle Tabellenblätter drucken...
13.10.2006 11:39:19
maier.o
Hi,
vielen Dank für eure schnellen Antworten. Hab alle drei Codes probiert und alle drei haben einwandfrei funktioniert...
Vielen Dank!
hab noch was vergessen...
13.10.2006 11:49:14
maier.o
ich möchte die erste und dritt Tabellenblatt NICHT mit ausdrucken... also nur 2,4,5,...11
Wie muß ich den Code jetzt umschreiben?
Hab den von UweD genommen, weil er als erstes geantwortet hat, aber andere umgeänderte codes wären auch hilfreich...
AW: hab noch was vergessen...
13.10.2006 12:00:36
UweD
Hallo
dann so...

Sub FastAlleTabellenDrucken()
Dim SH%, i%
SH = ActiveWorkbook.Sheets.Count
For i = 1 To SH
Select Case i
Case 1, 3
'mach nichts
Case Else
Sheets(i).PrintOut Copies:=1
End Select
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: hab noch was vergessen...
13.10.2006 12:12:15
harry
Hallo,
meinen ersten Code so ändern:

Sub test()
Dim wks As Worksheet
For Each wks In Worksheets
if wks.index <> 1 then
if wks.index <> 3 then
Sheets(wks.Name).PrintOut Copies:=1
endif
endif
Next
End Sub

Gruß
Harry
AW: Code für alle Tabellenblätter drucken...
13.10.2006 13:35:36
maier.o
Hat erneut wünderbar funktioiert!
Danke @ all
gruß und schönes wochenende

54 Forumthreads zu ähnlichen Themen

Tabellenblat erstellen und benennen
Gordon

Moin,
mit dem Befehl Sheets.add kann man ja per VBA ein neues Tabellenblatt erstellen. Dieses wird ja standartmäßig mit Tabelle (+ Nummer) benannt. Ist es auch möglich ein Tabellenblatt zu erstellen, wo man von vorne weg gleich den Namen bestimmen kann? Und wenn ja, mit welchem Befehl?
23.08.2008 17:45:00
Thread-ID: 1004145
6 Beiträge
Anzeige
alle offenen Tabellen drucken
Hans-Jürgen

Hallo Zusammen,
ich will ich alle offenen Tabellen ausdrucken ( über Makro), das funz. Ich habe aber nun hinter jeden Dateinamen die Jahreszahl, z.B.
Werte = Werte & Jahr
'Werte 2009.xls '-- sieht dann so aus--
Jetzt habe ich das Problem, die Tabellen zu drucken.
Wind...
02.03.2009 14:35:35
Thread-ID: 1055572
7 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Anzeige
mehrere Tabellenblätter im Querformat ausdrucken
WernerP

Ich möchte mehrere Tabellenblätter in einem Rutsch im Querformat ausdrucken.
Markiere ich alle Tabellenblätter und wähle Drucken mit Vorschau, so muß ich für jedes einzelne
Blatt das Querformat einstellen.
Gibt es einen Weg für alle Blätter gleichzeitig Querformat einzustellen? G...
01.12.2009 13:02:29
Thread-ID: 1121202
2 Beiträge
Tabelle erstellen über Inputbox und vbchancel
Juergen

Hallo Ihr Exelaner,
Ich habe da ein Problem Ich möchte über die Funktion Inputbox eine neue Tabelle erstellen.
Habe schon viel gesucht aber nichts passendes gefunden.
Und bekomme das nicht so richtig hin immer wenn ich auf Abbrechen gehe erstellt er mir trotzdem eine Tabelle mit N...
20.01.2010 20:29:08
Thread-ID: 1131514
3 Beiträge
mehrere Tabellenblätter gleichartig ausdrucken
u_hoernchen

Ich hoffe, dass mein Problem ein Excel-Problem ist und nicht ein Druckerproblem:
ich habe eine Datei mit mehreren Tabellenblättern, die ich alle gleichzeitig drucken möchte. Wenn ich jetzt in den Druckereinstellungen bestimmte Dinge auswähle (z.B. doppelseitiges Drucken), dann wird das nur...
27.04.2010 13:32:25
Thread-ID: 1154039
6 Beiträge
Tabellenblätter erstellen und verlinken
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 15:02:24
Thread-ID: 1201464
2 Beiträge
Tabelle erstellen und mit Hyperlink verknüpfen
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 20:35:16
Thread-ID: 1201577
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
11
6
6
1
1
2
5
1
1
2
5
4
4
2
4
1
1
3
4
3
6
5
10
5