Ich muss mich momentan in die Materia VBA einarbeiten - aber derzeit noch mehr schlecht als recht unterwegs ;)
Folgendes Problem: Ich habe ein Makro mit dem ich 2 Blätter drucken kann und ich habe ein Makro mit dem ich ein Pivot nach einem bestimmten Filterkriterium ausdrucke. Wie kann ich diese zwei Makros zusammenbringen damit zuerst die 2 Blätter gedruckt werden + je das gefilterte Kriterium. Die 2 Blätter sind vorher sozusagen als "Deckblatt" und die Infos aus dem Pivot der "Hauptteil". Der Filename ist erstmal egal.
Anbei die 2 Codes:
Sub VG_und_RG_drucken()
Sheets(Array("VG", "RG")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & UCase(ActiveSheet.Name) & "_VG_" & Cells(5, 2) & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Sub Pivot_Drucken()
Dim pt As PivotTable
Dim pi As PivotItem
Dim pf As PivotField
Dim piCount As Integer
Dim piAct As Integer
Set pt = Worksheets("Filiale").PivotTables("PivotTable1")
Set pf = pt.PivotFields("VG")
For piAct = 1 To pf.PivotItems.Count
pt.ManualUpdate = True
pf.ClearAllFilters
For piCount = 1 To pf.PivotItems.Count
If pf.PivotItems(piCount) pf.PivotItems(piAct) Then
pf.PivotItems(piCount).Visible = False
End If
Next piCount
pt.ManualUpdate = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & "Top 5 Schmankerl" & "_VG_" & Cells(5, 2) & ".pdf", Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next piAct
End Sub