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
In der Fusszeile soll rechts der Wert von Zelle B2 stehen.
Ich habe beim Googeln leide rnicht das passende gefunden
Gruss
Stefan