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

VBA Code - ändern

Forumthread: VBA Code - ändern

VBA Code - ändern
31.07.2024 10:42:05
UdPa
Hallo
Frage an euch Experten

Ich habe diesen Vba Code in meiner Arbeitsmappe, dieser Code soll wenn ich eine Seite ausdrucke die ausgeblendeten Zeilen einblenden zum drucken und nach dem Druck wieder ausblenden.
Das funktioniert einwandfrei.
Mein Problem ist das er dies bei allen Tabellenblättern meiner Arbeitsmappe macht,
ich hätte gerne das es nur für gewisse Tabellenblätter gilt.
Wie müsste ich den Code umschreiben das er eben nur bei gewissen Tabellenblättern einblendet und bei manchen nicht!

Ich bitte um eure Hilfe

LG Udo

Hier mein Code:

Sub Workbook_BeforePrint(Cancel As Boolean)
Dim bEvents As Boolean

bEvents = Application.EnableEvents
Application.EnableEvents = False

Cancel = True
ActiveSheet.Unprotect
ActiveSheet.Cells.EntireRow.Hidden = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.EnableEvents = bEvents
ActiveSheet.Protect
Call Ausblenden

End Sub
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Code - ändern
31.07.2024 10:56:49
daniel
Hi

baue vor der Aktion noch folgendes ein:

Select Case ActiveSheet.Name
Case "Tabelle1", "Tabelle2"
hier der Code
case else

End Select

den Code zum einblenden, Drucken und Einblenden fügst dann an der entsprechenden Stelle ein.
du kannst auch andersrum den Code im Else-Teil einfügen, wenn es weniger Blätter gibt, bei denen es nicht gemacht werden soll.

Gruß Daniel
Anzeige
AW: VBA Code - ändern
31.07.2024 10:57:08
daniel
Hi

baue vor der Aktion noch folgendes ein: 

Select Case ActiveSheet.Name

    Case "Tabelle1", "Tabelle2"

          hier der Code

    case else

        

End Select


den Code zum einblenden, Drucken und Einblenden fügst dann an der entsprechenden Stelle ein.
du kannst auch andersrum den Code im Else-Teil einfügen, wenn es weniger Blätter gibt, bei denen es nicht gemacht werden soll.

Gruß Daniel
Anzeige
AW: VBA Code - ändern
31.07.2024 11:47:49
GerdL
Hallo Udo,

du könntest zur Abrundung noch deine Prozedur "Call Ausblenden" zeigen.

Gruß Gerd
AW: VBA Code - ändern
31.07.2024 11:55:05
UdPa
Hier der Code zum ausblenden
Sub Ausblenden()
'
' Ausblenden Makro
'

'
ActiveSheet.Select
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=-10
Rows("24:48").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-14
ActiveSheet.Protect
End Sub

Es soll so sein das wenn ich das Tabellenblatt drucke, das es den zuerst ausgeblendeten Bereich druckt, und nach dem Drucken eben wieder ausblendet.

Das funktioniert auch so

Nur wenn ich das Tabellenblatt als PDF speichern möchte geht das nicht

Hast du vielleicht eine Lösung?

LG
Anzeige
AW: VBA Code - ändern
31.07.2024 12:12:07
Onur
"Nur wenn ich das Tabellenblatt als PDF speichern möchte geht das nicht " ??
Wenn du stattdessen das Blatt "ausdruckst" und dabei als Drucker den "Microsoft Print To PDF" nimmst, wird es funktionieren.
AW: VBA Code - ändern
31.07.2024 14:21:15
UdPa
Danke
;

Beliebteste Forumthreads (12 Monate)

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