Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Tabellenblätter drucken bis auf ...

Forumthread: alle Tabellenblätter drucken bis auf ...

alle Tabellenblätter drucken bis auf ...
27.02.2023 10:52:21
Haustein
Hallo Gemeinschaft,
ich habe eine Datei, in der sich die die Namen der Tabellenblätter permanent ändern - nun möchte ich einen Button haben auf einem Startblatt - durch klick werden alle Blätter gedruckt bis auf die Blätter mit Namen "Gesamt" und "Vorlage"
könnt ihr mir dabei bitte helfen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Tabellenblätter drucken bis auf ...
27.02.2023 11:07:04
Alwin
Hallo,
das sollte so reichen:

Option Explicit
Sub Drucken()
    Dim i&
    For i = 1 To Sheets.Count
        If Not Sheets(i).Name = "Vorlage" And Not Sheets(i).Name = "Gesamt" Then
        MsgBox Sheets(i).Name
            Sheets(i).Select
            Sheets(i).PrintOut
        End If
    Next i
End Sub
Gruß Uwe
Anzeige
AW: alle Tabellenblätter drucken bis auf ...
27.02.2023 11:27:53
Haustein
super klasse euch beiden - klappt prima
AW: alle Tabellenblätter drucken bis auf ...
27.02.2023 11:43:17
Daniel
Hi
hier noch eine Variante.
der Unterschied zu den bisher gezeigten ist, dass die Blätter nicht einzeln seperat gedruckt werden, sondern gesamtheitlich.
Beim Druck auf Papier wirkt sich das nicht aus, aber wenn man PDFs über den Druck erstellt oder mit Druckaufträgen arbeitet, würde man so alle Blätter in eine Datei bzw einen Druckauftrag bekommen:
Sub drucken()
Dim x As Boolean
Dim sh As Worksheet
Dim shAlt As Worksheet
Set shAlt = ActiveSheet
x = True
For Each sh In ActiveWorkbook.Worksheets
    Select Case sh.Name
        Case "Gesamt", "Vorlage"
        Case Else
            sh.Select x
            x = False
    End Select
Next
ActiveWindow.SelectedSheets.PrintOut
shAlt.Select
            
End Sub
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

drucken-seitenränder
Wolfgang

Guten morgen
mein problem
ich habe die seitenränder auf 1.5 eingestellt, die tabelle passt dann auf eine seite
die datei wird dann per vba(dank eurer hilfe) gespeichert.
rufe ich sie dann auf sind die seitenränder wieder auf der grundeinstellung
und dann passt die tabelle...
27.09.2008 09:32:05
Thread-ID: 1012784
4 Beiträge
Diagramm über mehrere Seiten drucken
Heiko

Hallo,
ich möchte ein großes Diagramm (ca. 1.000 Säulen) über mehrere Seiten ausdrucken ohne mehrere Einzeldiagramme daraus zu machen.
Hat jemand einen Tip?
Danke
Heiko
16.10.2008 11:37:00
Thread-ID: 1016806
3 Beiträge
Anzeige
Zusammenfassung sheets auf einer Seite, ohne Leerz
gerdi

Hallo,
ich möchte aus verschiedenen Excel-Sheets (Tabs) eine Zusammenfassung
aller benutzten Zeilen haben.
Es gibt z.B. 10 verschiedene Tabellen, eine heißt Berlin, andere Rom, ect. und
auf jeder Tabelle sind zu verschiedenen Zeiten andere Inhalte.
Z.b. sind heute 10 Zeilen...
18.11.2008 14:36:00
Thread-ID: 1025647
3 Beiträge
Wie kann man Makros auf einer html-Seite aktiviere
Nicola

Hallo
Ich habe eine Exceltabelle, bei der eine Suchfunktion als Makro eingebaut ist. Doch ich kann das Makro nicht mehr öffnen, sobald ich sie als htm/html-Datei abspeichere.
Grüße Nicola
24.11.2008 22:18:34
Thread-ID: 1027502
3 Beiträge
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
2 Sheets auf einer Seite!??
Timmy

Liebe Excler,
ich moechte folgendes erreichen.
Und zwar habe ich Daten auf einem Spreadsheet, die ich unabhaengig voneinander bearbeiten will.
Ich habe eine Beispieldatei angehaengt und etwas dazu erlautert...
https://www.herber.de/bbs/user/59047.xls
Ich hoffe, ich habe es...
03.02.2009 19:43:19
Thread-ID: 1046763
3 Beiträge
25 Zeilen auf eine Seite
Markus

Hallo zusammen,
ich habe eine lange Tabelle (ca. 40 Seiten nur mal als Größe) und ich bekomme es trotz Seite einrichten "anpassen" und "Seitenränder" nicht oder nur sehr mühsam hin, hin dass auf jede Seite 25 genau Excel-Zeilen gedruckt werden.
Hat hier jemand ein Makro für? Das ist ab...
02.04.2009 18:57:27
Thread-ID: 1066456
8 Beiträge
Anzeige
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
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
Anzeige
Änderung für alle Tabellenblätter übernehmen | Herbers Excel-Forum
Thomas
Hallo liebe VBAler
Ich hab eine Excel Datei mit 12 Tabellenblätter (Januar-Dezember).
Ände ich nun z.B. im Tabellenblatt Januar in Spalte A und B etwas, oder füge/lösche eine Zeile ein, dann soll er dies für alle anderen Tabellenblätter übernehmen.
Bis jetzt habe ich dies über Workshee...
14.01.2010 09:11:14
Thread-ID: 1129753
4 Beiträge
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Anzeige
Spaltenüberschrift auf jeder Seite drucken
Pit

Hallo zusammen,
ich habe ein Problem mit der Spaltenüberschirft.
In meiner Excel - Tabelle habe ich Spaltenüberschriften (A1:K1) vergeben. Die Tabelle zieht sich über mehrere Seiten (es werden wohl ca. 100 Seiten werden). In Excel selbst habe ich mir die Spaltenüberschrift fixiert, so d...
03.03.2011 14:42:26
Thread-ID: 1204064
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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