Kopfzeile per VBA ändern?

Forumthread: Kopfzeile per VBA ändern?

09.10.2007 09:37:57

InaB

Guten Morgen, Forum.
Ich möchte, daß beim Druck eines Tabellenblattes verschiedene Texte in der Kopfzeile erscheinen.
Das heißt, starte ich den Ausdruck per CommandButton 3 soll im Kopf (CenterHeader) "Beispiel 1" erscheinen, bei Ausdruck per Commandbutton 4 soll "Beispiel 2" erscheinen.
Ist das Möglich? Wenn ja, wie muß die Anweisung lauten und wo muß sie im folgenden Code stehen?
Wer kann mir helfen und den Code (von einem Forumsmitglied freundlicherweise zur Verfügung gestellt) entsprechend umbasteln?
Danke für eure Hilfe!
Grüsse, InaB


Private Sub CommandButton3_Click()
' TextBoxen ausdrucken über das ausgeblendete Tabellenblatt "Druck"
If Len(Trim(TextBox2)) = 0 Then MsgBox "Nichts zum Drucken da!         ", 64, " Hinweis  :-)":   _
_
Exit Sub
Dim lngC As Long
Dim objSh As Worksheet
Set objSh = Sheets("Druck")
With ListBox1
If .ListCount > 0 Then
If .List(0, 0)  "Kein Eintrag!" Then
If .ListIndex > -1 Then
objSh.Columns(1).Font.Bold = False
objSh.Columns(1).HorizontalAlignment = xlRight
objSh.Columns(2).Font.Bold = True
For lngC = 1 To 10
objSh.Cells(lngC, 1) = Controls("Label" & lngC) & ":"
objSh.Cells(lngC, 2) = Controls("TextBox" & lngC)
Next
Me.Hide
With objSh
.Columns.AutoFit
.Visible = xlSheetVisible
'Druckvorschau
.PrintPreview
'oder gleich Ausdrucken
'.PrintOut
.Cells.Clear
.Visible = xlSheetHidden
End With
Me.Show
End If
End If
End If
End With
Set objSh = Nothing
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopfzeile per VBA ändern?

09.10.2007 09:56:40

Peter
Vielen Dank, Peter!

09.10.2007 10:30:00

InaB

AW: Kopfzeile per VBA ändern?

09.10.2007 09:56:40

Peter

Hallo Ina,
z. B. so:


Private Sub CommandButton3_Click()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Beispiel 1"
.RightHeader = ""
End With
End Sub

Gruß Peter

Vielen Dank, Peter!

09.10.2007 10:30:00

InaB

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Kopfzeile in Excel per VBA zu ändern, folge diesen Schritten:

Öffne Excel und wechsle in den VBA-Editor (drücke ALT + F11).
Finde das entsprechende Arbeitsblatt, in dem du die Kopfzeile anpassen möchtest.
Füge einen neuen Button (CommandButton) hinzu, um den Code auszuführen.
Klicke mit der rechten Maustaste auf den Button und wähle "Code anzeigen".
Kopiere den folgenden Code in das Codefenster:

Private Sub CommandButton3_Click()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "Beispiel 1" ' Ändere hier den Text für die Kopfzeile
        .RightHeader = ""
    End With
    ' Druckvorschau oder Druck
    ActiveSheet.PrintPreview
    ' ActiveSheet.PrintOut ' Uncomment to print directly
End Sub

Passe den Text in .CenterHeader an, um verschiedene Texte anzuzeigen, je nach Button.
Schließe den VBA-Editor und teste den Button in deinem Arbeitsblatt.

Häufige Fehler und Lösungen

Fehler: "Nichts zum Drucken da!"
- Lösung: Stelle sicher, dass alle erforderlichen TextBoxen ausgefüllt sind, bevor du den Druck startest.
Kopfzeile wird nicht angezeigt
- Lösung: Überprüfe, ob die Kopfzeile in den Druckeinstellungen aktiviert ist. Gehe zu "Seitenlayout" > "Drucktitel", um sicherzustellen, dass die Kopfzeile nicht ausgeblendet ist.

Alternative Methoden

Wenn du die Kopfzeile ohne VBA ändern möchtest, kannst du die folgenden Schritte ausführen:

Gehe zu "Seitenlayout".
Klicke auf "Drucktitel".
Im Dialogfeld kannst du die Kopfzeile manuell anpassen. Wähle zwischen dem linken, mittleren und rechten Bereich.

Praktische Beispiele

Hier sind zwei einfache Beispiele, um die Kopfzeile mit unterschiedlichen Texten zu formatieren:

Beispiel 1:

Private Sub CommandButton3_Click()
    With ActiveSheet.PageSetup
        .CenterHeader = "Beispiel 1"
    End With
    ActiveSheet.PrintPreview
End Sub

Beispiel 2:

Private Sub CommandButton4_Click()
    With ActiveSheet.PageSetup
        .CenterHeader = "Beispiel 2"
    End With
    ActiveSheet.PrintPreview
End Sub

Du kannst auf einfache Weise verschiedene Texte in der Kopfzeile durch unterschiedliche Buttons anzeigen.

Tipps für Profis

Nutze die Methode .LeftHeader oder .RightHeader, um zusätzliche Informationen wie Datum oder Seitennummern hinzuzufügen.
Um die Kopfzeile zu formatieren, kannst du auch Schriftarten und Größen anpassen:

With ActiveSheet.PageSetup
    .CenterHeader = "&""Arial,Bold""&16 Beispiel 1"
End With

Wenn du die Fußzeile bearbeiten möchtest, verwende die gleichen Methoden, indem du .Footer, .LeftFooter, .CenterFooter oder .RightFooter ansprechst.

FAQ: Häufige Fragen

1. Wie kann ich die Kopfzeile in Excel ausblenden? Um die Kopfzeile auszublenden, gehe zu "Seitenlayout" > "Drucktitel" und stelle sicher, dass die Kopfzeilenfelder leer sind.

2. Kann ich die Kopfzeile für jede Seite unterschiedlich gestalten? Ja, du kannst VBA verwenden, um die Kopfzeile dynamisch für verschiedene Seiten zu ändern, je nachdem, wie du es im Code implementierst.

3. Was ist der Unterschied zwischen der Kopfzeile und der Fußzeile? Die Kopfzeile erscheint oben auf der Seite, während die Fußzeile am unteren Rand der Seite angezeigt wird. Beide können mit VBA bearbeitet werden.

Beliebteste Forumthreads (12 Monate)