Habe mir gestern schon einmal Hilfe hier im Forum geholt die mich um einiges weiter gebracht hat. Ich habe allerdings noch ein Problem. Uns zwar möchte ich bei einem Tabellen Blatt individuell einen Eintrag in der Kopfzeile ändern können. Der nachfolgende Code ermöglicht mir zwar das ich per Knopfdruck die Kopfzeile verändern kann aber leider bin ich da auf die Vorgaben festgelegt. Gibt es dennoch eine Möglichkeit über eine UsrForm in den Code die zu ändernden Daten einzugeben?
Hier der Code:
Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "Abt. X " '( hier möchte ich gerne die Änderung mit der Userform einfügen) "
.CenterHeader = _
"Bundeswehrzentralrankenhaus Koblenz" & Chr(10) & "Rübenacherstr.170" & Chr(10) & "56072 Koblenz"
.RightHeader = "&D&T"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
End Sub
Danke für eure Hilfe
Markus