Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schriftgröße per Makro in Kopfzeile ändern

Forumthread: Schriftgröße per Makro in Kopfzeile ändern

Schriftgröße per Makro in Kopfzeile ändern
10.07.2007 12:01:00
Stefan
Hi,
ich habe folgenden Makrostring, der den Zellinhalt von G1 in die Kopfzeile schreibt. Ich würde allerdings auch gleichzeitig die Kopfzeile in Arial, fett, 14 anzeigen lassen. Kann ich das in der selben Anweisung machen?

Private Sub CommandButton3_Click()
'ZellenWertInKopfzeile()
ActiveSheet.PageSetup.CenterHeader = Range("G1").Value
End Sub


Danke
Stefan

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftgröße per Makro in Kopfzeile ändern
10.07.2007 12:15:00
Stefan
Hab's per Trial and Error selber rausbekommen. Wen's interessiert:

Private Sub CommandButton3_Click()
'ZellenWertInKopfzeile()
ActiveSheet.PageSetup.CenterHeader = "&""Arial,Fett""&14" & Range("G1").Value
End Sub


Cheers!
Stefan

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Kopfzeile in Excel formatieren: Schriftgröße und mehr ändern


Schritt-für-Schritt-Anleitung

Um die Schriftgröße in der Kopfzeile einer Excel-Tabelle per Makro zu ändern, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (DeinDateiname)“ klickst und „Einfügen“ > „Modul“ wählst.

  3. Kopiere den folgenden Code in das Modul:

    Private Sub CommandButton3_Click()
        'ZellenWertInKopfzeile
        ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold""&14 " & Range("G1").Value
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Füge einen Button in dein Arbeitsblatt ein und weise ihm das Makro CommandButton3_Click zu.

  6. Klicke auf den Button, um die Kopfzeile zu ändern. Die Schriftgröße in der Kopfzeile wird nun auf 14 Punkt gesetzt und der Text aus Zelle G1 wird angezeigt.


Häufige Fehler und Lösungen

  • Fehler: Die Schriftgröße ändert sich nicht.

    • Lösung: Stelle sicher, dass der Code genau so eingegeben wurde und dass der Text in Zelle G1 vorhanden ist.
  • Fehler: Die Schriftart wird nicht angewendet.

    • Lösung: Überprüfe, ob du die Anführungszeichen im Code korrekt eingegeben hast: &""Arial,Bold"".

Alternative Methoden

Wenn du die Kopfzeile nicht per Makro ändern möchtest, kannst du dies auch manuell tun:

  1. Gehe zu „Seitenlayout“.
  2. Klicke auf „Seitensetup“ und wähle die Kopfzeilenoption.
  3. Hier kannst du die Schriftart und -größe für die Kopfzeile anpassen.

Diese Methode ist jedoch weniger flexibel und erfordert manuelle Anpassungen bei jeder Änderung.


Praktische Beispiele

Ein Beispiel für die Anpassung der Schriftgröße in der Kopfzeile:

Private Sub CommandButton3_Click()
    'Kopfzeile mit benutzerdefinierter Schriftart und Größe
    ActiveSheet.PageSetup.CenterHeader = "&""Arial,Bold""&14 Dein Text hier"
End Sub

Hierbei wird die Kopfzeile auf die Schriftart Arial in Fettdruck und 14 Punkt gesetzt. Du kannst den Text nach Bedarf anpassen.


Tipps für Profis

  • Experimentiere mit verschiedenen Schriftarten und -größen, um die Kopfzeile an dein Dokument anzupassen.
  • Wenn du mehrere Kopfzeilen benötigst, kannst du auch die linke und rechte Kopfzeile anpassen, indem du ActiveSheet.PageSetup.LeftHeader oder ActiveSheet.PageSetup.RightHeader verwendest.
  • Denke daran, dass die Änderungen an der Kopfzeile nur für das aktuelle Arbeitsblatt gelten.

FAQ: Häufige Fragen

1. Wie kann ich die Höhe der Kopfzeile ändern?
Die Höhe der Kopfzeile wird automatisch durch den Inhalt bestimmt, aber du kannst die Zeilenhöhe im Arbeitsblatt anpassen, um mehr Platz zu schaffen.

2. Kann ich die Schriftgröße in der Fußzeile ebenfalls ändern?
Ja, du kannst die Fußzeile mit einem ähnlichen VBA-Code anpassen, indem du ActiveSheet.PageSetup.CenterFooter oder die entsprechenden Footer-Optionen verwendest.

3. Welche Excel-Version wird benötigt?
Die oben genannten Schritte sind in Excel 2010 und neueren Versionen anwendbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige