ich mnöchte mit einem makro autmatisch einen Text in die kopfzeile einfügen.
der text muss noch die Schriftart "PRESCRIBE" haben.
vorher soll aber alles aus der kopfzeile gelöscht werden.
welöchen script muss ich da nehmen?
Sub Kopf_und_Fusszeile_einfügen()
Anzahl_Sheets = ActiveWorkbook.Worksheets.Count
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
For i = 1 To Anzahl_Sheets
Sheets(i).Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&""PRESCRIBE""&14MeinText&""PRESCRIBE,Standard""" .RightFooter = "Seite &P/&N"
End With
Next i
Sheets(1).Select
Range("A1").Select
End Sub