ich bin leider ein Dummy was VBA betrifft: Ich brauche eigentlich nur eine Kleinigkeit, bitte helft mir. Ein Kollege hat mir dieses Makro geschrieben, ist ja alles perfekt, doch leider habe ich die Formatierung irgendwie gelöscht....
oWorkSheet.PageSetup.LeftHeader = ksFontPrefixHeader & sHeaderL
oWorkSheet.PageSetup.LeftFooter = ksFontPrefixFooter & sFooterL
d.H. ich brauche die Formatierung für den Header "ksFontPrefixHeader" die soll Schriftart "Century Gothic" und 10 Punkt sein und der Footer "ksFontPrefixFooter" diese soll "century gothic" 8 Punkt sein.
unten findet ihr das ganze Makro. Ich weiß das ist eine recht dumme bitte aber seid lieb und schreibt mir. danke
karoline
Public
Sub KopfUndFusszeilenSetzen()
Dim oWorkSheet As Worksheet
Dim sHeaderR As String
Dim sHeaderL As String
Dim sHeaderM As String
Dim sFooterL As String
Dim sFooterM As String
Dim sFooterR As String
For Each oWorkSheet In ActiveWorkbook.Sheets
sHeaderM = ""
sHeaderR = ""
sHeaderL = ""
If oWorkSheet.Index <> 1 Then
sHeaderL = ActiveWorkbook.Sheets("Deckblatt").Range("B11").Value & " " & _
ActiveWorkbook.Sheets("Deckblatt").Range("B13").Value
If oWorkSheet.Index = 3 Then
ActiveSheet.PageSetup.RightHeaderPicture.Filename = "\\w2ks0009\Info\INFOS\Logo_DSA_und_produkte\dsalogo170.gif"
sHeaderR = "&G"
End If
Else
sHeader = ""
ActiveSheet.PageSetup.RightHeaderPicture.Filename = ""
End If
sFooterL = ActiveWorkbook.Sheets("Deckblatt").Range("B5").Value & " " & _
ActiveWorkbook.Sheets("Deckblatt").Range("C5").Value
sFooterM = "&HSeite &P von &N"
sFooterR = "&D"
' Testausgaben ins Direktfenster
Debug.Print oWorkSheet.Name & " - Kopfzeile L: " & sHeaderL
Debug.Print oWorkSheet.Name & " - Kopfzeile M: " & sHeaderM
Debug.Print oWorkSheet.Name & " - Kopfzeile R: " & sHeaderR
Debug.Print oWorkSheet.Name & " - Fusszeile L: " & sFooterL
Debug.Print oWorkSheet.Name & " - Fusszeile M: " & sFooterM
Debug.Print oWorkSheet.Name & " - Fusszeile R: " & sFooterR
' Zuweisen
oWorkSheet.PageSetup.LeftHeader = ksFontPrefixHeader & sHeaderL
oWorkSheet.PageSetup.CenterHeader = ksFontPrefixHeader & sHeaderM
oWorkSheet.PageSetup.RightHeader = ksFontPrefixHeader & sHeaderR
oWorkSheet.PageSetup.LeftFooter = ksFontPrefixFooter & sFooterL
oWorkSheet.PageSetup.CenterFooter = ksFontPrefixFooter & sFooterM
oWorkSheet.PageSetup.RightFooter = ksFontPrefixFooter & sFooterR
Next
End Sub