Kopfzeile per Makro formatieren

Forumthread: Kopfzeile per Makro formatieren

05.05.2017 07:03:34

Hans

Hallo Forum,
Hajo hat mir schon einen Ansatz für mein Problem gegeben aber ich habe mich wohl falsch dabei ausgedrückt. Deshalb hier noch einmal ein Versuch es besser zu machen.
Also: ich habe ein Makro gefunden, welches mir einen Zelleninhalt in die Kopfzeile kopiert. So weit so gut.

Sub Kopfzeile()
Dim Blatt As Object
For Each Blatt In Sheets
With Blatt.PageSetup
.CenterHeader = Sheets("Ausdruck").Range("AE8")
End With
Next
End Sub

Der Wert in Zeile AE8 kann Variieren. Das Makro arbeitet bis hier hin ohne Probleme.
Nun möchte ich gern, die Schriftgröße der Kopfzeile auf Calibri 26 - Fett stellen. Dazu riet mir Hajo den Makrorekorder zu benutzen.
Das kommt dabei raus:

Sub Schrift()
' Schrift Makro
Selection.Font.Bold = True
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&Z&""-,Fett""&26Müller & Meier GmbH und Co Kg"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.787401575)
.BottomMargin = Application.InchesToPoints(0.787401575)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveCell.Show
End Sub

Als Ergebnis zeigt mir Excel auch den Verzeichnispfad an.
C:\Users\Acer\Dokuments\Müller & Meier GmbH und Co Kg - wobei alles nach dem letzten Backslash in Calibri 26 Fett angezeigt wird.
Ich habe schon alles mögliche versucht, bekomme das aber einfach nicht weg!
Wer kann helfen ?
Vielen Dank
Hans

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Beispieltabelle angehängt

05.05.2017 08:23:10

Hans
Frage noch offen (Haken vergessen) owT

05.05.2017 08:30:52

Hans
Lösung - Wer es wissen will....

05.05.2017 09:10:15

Hans

Beispieltabelle angehängt

05.05.2017 08:23:10

Hans

Moin moin noch einmal,
ich hab mal eine Beispieltabelle hochgeladen.
Eventuell geht es dann einfacher...
https://www.herber.de/bbs/user/113333.xlsm
Vielen Dank
Hans

Frage noch offen (Haken vergessen) owT

05.05.2017 08:30:52

Hans

Holla

Lösung - Wer es wissen will....

05.05.2017 09:10:15

Hans

Hab die Lösung selbst gefunden.... Man muss nur hartnäckig bleiben.... LOL

Sub Schrift()
'ZellenWertInKopfzeile()
ActiveSheet.PageSetup.CenterHeader = "&""Calibri,Fett""&26" & Range("AE8").Value
End Sub

Trotzdem vielen Dank allen Helfern..
Hans

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Kopfzeile in Excel per Makro zu formatieren, kannst du folgende Schritte befolgen:

Öffne Excel und erstelle ein neues oder öffne ein bestehendes Dokument.
Öffne den VBA-Editor mit ALT + F11.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (dein Dokument)" > Einfügen > Modul.

Kopiere und füge den folgenden Code ein:

Sub KopfzeileFormatieren()
    Dim Blatt As Object
    For Each Blatt In Sheets
        With Blatt.PageSetup
            .CenterHeader = "&""Calibri,Bold""&26 " & Sheets("Ausdruck").Range("AE8").Value
        End With
    Next
End Sub

Führe das Makro aus: Gehe zurück zu Excel und drücke ALT + F8, wähle KopfzeileFormatieren und klicke auf Ausführen.

Dieser Code setzt die Schriftart der Kopfzeile auf Calibri, fett und in Schriftgröße 26. Du kannst den Text in der Kopfzeile anpassen, indem du den Bereich AE8 änderst.

Häufige Fehler und Lösungen

Fehler: Verzeichnispfad wird angezeigt
Lösung: Stelle sicher, dass dein Code so aussieht:
```
ActiveSheet.PageSetup.CenterHeader = "&""Calibri,Bold""&26" & Range("AE8").Value
```
Dies entfernt den Verzeichnispfad und zeigt nur den gewünschten Text an.
Fehler: Schriftgröße wird nicht angewendet
Lösung: Überprüfe, ob die Schriftart und -größe korrekt im Code angegeben ist. Stelle sicher, dass du die Schriftart "Calibri" und die Größe "26" korrekt angegeben hast.

Alternative Methoden

Falls du das Formatieren der Kopfzeile nicht per Makro durchführen möchtest, kannst du auch die folgenden Methoden ausprobieren:

Manuelle Formatierung: Gehe zu Seitenlayout > Drucktitel und wähle die Kopfzeile aus. Hier kannst du die Schriftart und -größe direkt einstellen.
Verwendung des Makrorekorders: Wenn du nicht programmieren möchtest, kannst du den Makrorekorder aktivieren und die Schritte zur Formatierung der Kopfzeile aufzeichnen.

Praktische Beispiele

Zentrale Kopfzeile mit variablen Werten:

Sub Beispiel1()
   ActiveSheet.PageSetup.CenterHeader = "&""Calibri,Bold""&26 " & Range("A1").Value
End Sub

Diese Funktion verwendet den Wert aus Zelle A1 für die Kopfzeile.

Kopfzeile mit Grafik: Wenn du eine Grafik in der Kopfzeile einfügen möchtest, kannst du dies mit folgendem Code tun (beachte, dass dies etwas komplexer ist):

Sub KopfzeileMitGrafik()
   With ActiveSheet.PageSetup
       .CenterHeaderPicture.Filename = "C:\Pfad\zu\deiner\Grafik.jpg"
       .CenterHeader = "&G"
   End With
End Sub

Tipps für Profis

Verwende Variablen für häufig genutzte Texte in der Kopfzeile, um deinen Code übersichtlicher zu gestalten.
Teste deine Makros in einer Kopie deiner Datei, um Datenverlust zu vermeiden.
Nutze Kommentare im Code, um die Funktionalität deiner Makros zu dokumentieren und die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftgröße der Fußzeile ändern?
Du kannst die Schriftgröße der Fußzeile ähnlich wie bei der Kopfzeile formatieren, indem du .CenterFooter oder .LeftFooter verwendest und die Schriftart und -größe festlegst.

2. Warum funktioniert mein Makro nicht?
Überprüfe, ob die Makros in deiner Excel-Installation aktiviert sind und ob du den richtigen Arbeitsblattnamen verwendest.

3. Kann ich mehrere Schriftarten in der Kopfzeile verwenden?
Nein, in einer Kopfzeile kannst du nur eine Schriftart für den gesamten Text festlegen. Um verschiedene Schriftarten zu kombinieren, musst du separate Kopfzeilen für verschiedene Abschnitte nutzen.

4. Wie füge ich eine Grafik in die Kopfzeile ein?
Verwende den CenterHeaderPicture-Befehl, um eine Grafik in die Kopfzeile einzufügen. Achte darauf, den korrekten Dateipfad anzugeben.

Beliebteste Forumthreads (12 Monate)

Forumthread: Kopfzeile per Makro formatieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Kopfzeile in Excel per Makro formatieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread