Zellinhalt in Kopfzeile beiDruckvorschau
21.05.2021 10:25:13
Frank
ich habe die Suchfunktion schon bedient, auch google bringt mich nicht wirklich weiter.
ich habe eine Arbeitsmappe mit mehreren sheets
im Sheet "Kopfblatt" stehen variable Daten (teilweise durch Formeln generiert), die in allen Kopf-/Fußzeilen der einzelnen Blätter angezeigt werden sollen.
und zwar jedes mal frisch aktualisiert, sobald der Kollege die Druckvorschau aktiviert (also Datei-> Drucken)
nun steht es um meine VBA-Kenntnisse nicht sooo gut. naja, eigentlich hab ich kaum Ahnung.
ich habe mir über diverse Foren den Code zusammengebastelt. ob der so richtig ist.. k.A.
so sieht er aus:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Blatt As Object
For Each Blatt In Sheets
With Blatt.PageSetup
.LeftFooter = "Gefährdungsbeurteilung " & Chr(10) & _
"" & Sheets("Kopfblatt").Range("F1").Value
.CenterFooter = "Ersteller " & Sheets("Kopfblatt").Range("L16").Value
.RightFooter = "Seite &P/&N"
.RightHeader = "Erstellungsdatum: " & Sheets("Kopfblatt").Range("Q16")
End With
End Sub
a) ich aktiviere die Druckvorschau -> Kopf- und Fusszeile ist entsprechend gefüllt
b) ich lösche händisch den Inhalt aus dem center footer (im sheet, nicht im VBA Code) und schreibe "Quatsch" rein
c) sollte der Code doch aber "Quatsch" wieder mit Ersteller + den Wert aus L16 wieder überschreiben, sobald ich die Druckvorschau erneut aktiviere
ich hoffe irgendjemand kann das was ich da gebastelt habe nachvollziehen
ich freue mich auf euer (zielführendes) Feedback!
beste Grüße
Frank