kann mir jemand sagen, was ich eintragen muss, damit der Zellwert in der Kopfzeile eingetragen wird?
Meine VBA-Zeile sieht folgendermaßen aus:
.LeftHeader = "AD1002" + Chr(13) + "AD1003" + Chr(13) + "AD1004"
Danke und Gruß
Nico
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Sub kopfzeile()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$V$1:$AP$1004"
With ActiveSheet.PageSetup
.LeftHeader = [AD1002] + Chr(13) + [AD1003] + Chr(13) + [AD1004]
.CenterHeader = ""
.RightHeader = ""
.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 = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 61
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen