PdF Schleifenmakro

Hallo Zusammen
Ich habe in einer Exceldatei 50 Personalblätter und eine Druckforlage die davon abhängig ist welches Personaldatenblatt aktiv ist.
Wenn ich dies als PDF in einer Schleife exportieren möchte, bleibt mir natürlich durch denn Blattwechsel das Makro stehen, dass heisst er bleibt beim Personalblatt P1 stehen. Ich stehe auf dem Schlauch, kann mir jemand helfen

Sub Drucken_AdF()
Dim Tbl
'Änderungen an allen Personalblätter P1-P50
For Tbl = 1 To 3
Sheets("P" & Tbl).Select
Abrechnung
Next Tbl
End Sub

Sub Abrechnung()
With Sheets("BriefD").PageSetup
.PaperSize = xlPaperA4  'Festlegung auf Hochformat
.Orientation = xlPortrait  'Seitenbreite definieren
.FitToPagesWide = 1   'Seitenhöhe definieren
.FitToPagesTall = False
.Zoom = False
Sheets("BriefD").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("E4").Value & "_" & Format(Date, "YYYYMMDD") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End With
End Sub

Gruss Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Drucken_AdF() Dim i As Integer, TBL 'Änderungen an allen Personalblätter P1-P50 For i = 1 To 3 TBL = "P" & i Abrechnung (TBL) Next i End Sub Sub Abrechnung(TBL) With Sheets("BriefD").PageSetup .PaperSize = xlPaperA4 'Festlegung auf Hochformat .Orientation = xlPortrait 'Seitenbreite definieren .FitToPagesWide = 1 'Seitenhöhe definieren .FitToPagesTall = False .Zoom = False End With Sheets("BriefD").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Sheets(TBL).Range("E4").Value & "_" & Format(Date, "YYYYMMDD") & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Hallo
Ok mit dem Fehler hast Du insofern recht dass dieser vorhanden ist! Ich weiss allerdings nicht mehr für was diese Formel ursprünglich war. Habe diese Formel in allen Blättern gelöscht.
Denn der Verweiss für den Blattname bezieht sich nicht aufs Personalblatt sondern.
Sheets("BriefD").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Range("E4").Value & "_" & Format(Date, "YYYYMMDD") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
bezieht sich dies auf die Druckvorlage.
Aber ich habe es geschafft, ich hatte ein Überlegungsfehler
Die Personaldatenblätter werden über die Ribbonleiste gewechselt, dass befüllt aber auch die Druckvorlage mit denn aktuellen Personaldaten. Logischerweisse blieben dort aber einfach die Daten stehen da ich in VBA den Wechsel nicht über die Ribbonleiste machte.
Habe bei allen Personalblättern nun noch denn Code dahinter gehängt, nun läufts!

Private Sub Worksheet_Activate()
Worksheets("Datenmotor").Range("B55").Value = Range("C1").Value
End Sub

Besten Dank für deine Mithilfe
Gruss Daniel

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread