Datum

Titel

19.04.2024 16:34:52

gemeinsamer Filter über drei Spalten

19.04.2024 15:39:42

Exceltabelle daten per combobox zu word Datei

19.04.2024 14:04:05

PDF per VBA ausgeben - Seitenskalierung

19.04.2024 13:58:02

Set Worksheet geht im O365 aber im Excel 2016 nicht

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1920to1924

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

alle Tabellenblätter drucken bis auf ...

Forumthread: alle Tabellenblätter drucken bis auf ...
4 Beiträge zu diesem Forumthread
Anzeige
304 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

27.02.2023 11:05:03

ChrisL
AW: alle Tabellenblätter drucken bis auf ...

27.02.2023 11:07:04

Alwin
AW: alle Tabellenblätter drucken bis auf ...

27.02.2023 11:27:53

Haustein
AW: alle Tabellenblätter drucken bis auf ...

27.02.2023 11:43:17

Daniel

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

27.02.2023 11:05:03

ChrisL

Hi
In etwa so...
https://stackoverflow.com/questions/31312385/print-all-sheets-in-workbook-except-for-3-specific-sheets
Scheint passend und ausgeblendete Blätter werden gleich auch noch abgehandelt.
cu
Chris

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

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