Kopfzeile aus Zelle
Stefanglander
ich drucke mit folgendem Code
Private Sub CommandButton4_Click()
Dim strDruckbereich As String
strDruckbereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = "A1:AE29"
ActiveWindow.SelectedSheets.PrintPreview 'Seitenansicht
Application.OnTime Now + TimeSerial(0, 0, 1), "'PrintAreaReset """ & strDruckbereich & """'"
End Sub
Wie kann ich nun im Kopfbereich links den Wert der Zellen A1 und E1 einfügen?In der Fusszeile soll rechts der Wert von Zelle B2 stehen.
Ich habe beim Googeln leide rnicht das passende gefunden
Gruss
Stefan