Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopf/Fusszeile Formatierung

Kopf/Fusszeile Formatierung
25.04.2006 09:20:48
Karoline
Hallo,
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

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:36:44
u_
Hallo,
Dim ksFontPrefixHeader As String
Dim ksFontPrefixFooter As String
ksFontPrefixHeader = "&""Century Gothic,Standard""&10"
ksFontPrefixFooter = "&""Century Gothic,Standard""&8"
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:46:26
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:46:34
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:46:36
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:46:43
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:47:03
Karoline
herzlichen dank funktioniert wieder einwandfrei
Anzeige
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:47:05
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:47:17
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:47:31
Karoline
herzlichen dank funktioniert wieder einwandfrei
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:48:16
Karoline
danke funktioniert wieder einwandfrei.
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:48:17
Karoline
danke funktioniert wieder einwandfrei.
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:48:18
Karoline
danke funktioniert wieder einwandfrei.
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:48:18
Karoline
danke funktioniert wieder einwandfrei.
AW: Kopf/Fusszeile Formatierung
25.04.2006 09:57:48
Franz
Hallo Karoline,
passe das Makro wie folgt an:

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
ksFontPrefixHeader = "&""Century Gothic,Standard""&10"
ksFontPrefixFooter = "&""Century Gothic,Standard""&8"
For Each oWorkSheet In ActiveWorkbook.Sheets

Falls das mit dem Font nicht genau klappt, dann in einer leeren mappe ein Makro aufzeichnen in dem du für Kopf bzw. Fußzelle die Schriftart und Größe änderst. Dann hast du den genauen Text, den du benötigst.
Gruß
Franz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige