Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ausgeblendete Blätter drucken

Ausgeblendete Blätter drucken
Michael
Hallo
ich habe eine Arbeitsmappe mit vielen ausgeblendeten Tabellenblättern.
Ich bräuchte einen Code, der über einen commandbutton alle diese ausgeblendeten blätter nach dem wert in zelle Z1 des jeweiligen blatts prüft und bei einem zellwert größer 0 dieses blatt ausdruckt.
Nacheinander müssten also alle diese blätter mit dieser bedingung ausgedruckt werden.
kann mir da jemand auf die sprünge helfen?
Danke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ausgeblendete Blätter drucken
07.10.2009 13:08:24
Wolli
Hallo Michael,
Dieses Programm tut, was Du willst ;-)
Gruß, Wolli
Sub test()
Dim s As Worksheet
For Each s In ActiveWorkbook.Worksheets
Debug.Print s.Name
If s.Visible = xlSheetHidden Then
If IsNumeric(s.Cells(1, 26).Value) Then
If s.Cells(1, 26).Value > 0 Then
s.Visible = xlSheetVisible
s.PrintOut
s.Visible = xlSheetHidden
End If
End If
End If
Next s
End Sub

Anzeige
AW: Ausgeblendete Blätter drucken
07.10.2009 13:11:17
Rudi
Hallo,
Sub tt()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
If Not wks.Visible And wks.Cells(1, 26) > 0 Then
wks.Visible = xlSheetVisible
wks.PrintOut
wks.Visible = xlSheetHidden
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: Ausgeblendete Blätter drucken
07.10.2009 22:35:59
Michael
Hallo
vielen dank! mit diesem code klappts hervorragend
danke nochmals
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige