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
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige