Kopfzeile per Makro
19.05.2003 18:59:27
Markus
es ist wieder Kriesenzeit. Kann mir jemand sagen, warum der folgende Code das Datum in der rechten Kopzeile in einer Schriftgröße von 409 und eben nicht wie angegeben in Größe 8 druckt?
Danke Gruß Markus
Sub Headerbutton_OnClick()
Dim i As Integer
Dim n As Integer
Dim strProjekt As String
Dim strAddress As String
Dim DatDatum As Date
n = Sheets.Count
strProjekt = Range("Projekt")
strAddress = Range("Straße") & ", " & Range("Ort")
DatDatum = Range("Datum")
For i = 1 To n
If Sheets(i).Name <> "Deckblatt" Then
With Sheets(i).PageSetup
.LeftHeader = "&""Arial,Fett""&8" & strProjekt & Chr(10) & "&""Arial,Standard""&8" & strAddress
.RightHeader = "&""Arial,Fett""&8" & DatDatum
End With
End If
Next i
End Sub
Anzeige