Durckbereiche aktivieren/deaktivieren mehr. Blätt.

Hallo zusammen,
ich bin neu hier und auf der Suche nach einer Lösung für ein kleines oder evtl. größeres Problem.
Ich möchte ein monatliches Reporting aus einer Arbeitsmappe mit ca. 30 Tabellenblättern aufbauen. Da aber nicht jeden Monat alle Blätter berichtet werden sollten, möchte ich über eine Art "Kontrollzentrum" auf einem separaten Arbeitsblatt definieren, was gedruck werden soll. Ich bin jedoch auch mit langer Recherche noch zu keinem Ergebnis gekommen, wie sowas umsetzbar sein könnte.
Idee für den Aufbau des "Kontrollzentrums":
Drucken | Blatt | Druckbereich
ja Report1 A1:F17
ja Report2 A1:F17
nein Report3 A1:F17
Alternativ wäre es auch denkbar, Druckbereiche auf den jeweiligen Arbeitsblättern zu definieren und dann nur anzusteuern, welche für den jeweilige Monat relevant sind.
Ich hoffe es ist einigermaßen veständlich, was ich vorhabe und ihr habt eine Idee wie man sowas umsetzen kann.
Grüße
Nils

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Drucken() Dim raBereich As Range, raZelle As Range With Worksheets("Kontrollzentrum") Set raBereich = .Range("A2:A10") For Each raZelle In raBereich If UCase(raZelle.Value) = "JA" Then Worksheets(raZelle.Offset(0, 1).Value).PageSetup.PrintArea = "" Worksheets(raZelle.Offset(0, 1).Value).PageSetup.PrintArea = raZelle.Offset(0, 2). _ Value Worksheets(raZelle.Offset(0, 1).Value).PrintPreview End If Next raZelle End With End Sub

Hallo Nils,
und was hat das jetzt bitte mit dem Eingangsbeitrag zu tun - da war die Rede vom Drucken der Blätter.
Warum sagst du nicht gleich was du willst?
Leg dir in deiner Datei noch ein zusätzliches Blatt mit dem Namen "Monatsbericht" an. Dort werden die Daten gesammelt.
Ablauf:
Daten der mit Ja gekennzeichneten Blätter mit den jeweiligen Bereichen in Spalte C werden im Blatt "Monatsbericht" gesammelt. Das Blatt "Monatsbericht" wird als PDF exportiert (gleicher Pfad wie die Datei mit dem Makro) und die PDF wird angezeigt.

Public Sub Drucken()
Dim raBereich As Range, raZelle As Range
Dim loLetzte As Long, wsQ As Worksheet, wsZ As Worksheet
Set wsQ = ThisWorkbook.Worksheets("Kontrollzentrum")
Set wsZ = ThisWorkbook.Worksheets("Monatsbericht")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
With wsQ
wsZ.Cells.ClearContents
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
Set raBereich = .Range("A2:A" & loLetzte)
For Each raZelle In raBereich
If UCase(raZelle.Value) = "JA" Then
Worksheets(raZelle.Offset(0, 1).Value).Range(raZelle.Offset(0, 2).Value).Copy _
wsZ.Cells(wsZ.Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next raZelle
End With
wsZ.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & wsZ.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Set wsQ = Nothing: Set wsZ = Nothing: Set raBereich = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Durckbereiche aktivieren/deaktivieren mehr. Blätt.

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread