Private Sub Workbook_Open()
' MacroKopfzeile
With ActiveSheet.PageSetup
.LeftHeader = "Hier der Text für Links Kopfzeile"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "Hier der Text für Rechts Kopfzeile"
.LeftFooter = "Hier der Text für Links Fußzeile"
.CenterFooter = "Hier der Text für Mitte Fußzeile"
.RightFooter = "Hier der Text für Rechts Fußzeile"
End With
End Sub
Private Sub Worksheet_Activate()
With ActiveSheet.PageSetup
.LeftHeader = "Hier der Text für Links Kopfzeile"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "Hier der Text für Rechts Kopfzeile"
End With
End Sub
Private Sub Worksheet_Activate()
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\Documents and Settings\Chris\My Documents\My Pictures\Hai1.jpg"
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
"C:\Documents and Settings\Chris\My Documents\My Pictures\Hai2.jpg"
With ActiveSheet.PageSetup
.LeftHeader = "&G"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "&G"
End With
End Sub
Private Sub Worksheet_Activate()" !!!
Gruß,
Chris
Um die Excel-Kopfzeile zu schützen, kannst du VBA-Makros nutzen. Diese Methode sorgt dafür, dass die Kopfzeile bei jedem Öffnen des Dokuments oder beim Aktivieren des Arbeitsblatts neu gesetzt wird. Folge diesen Schritten:
Öffne dein Excel-Dokument.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Doppelklicke auf Diese Arbeitsmappe.
Füge folgenden Code ein:
Private Sub Workbook_Open()
With ActiveSheet.PageSetup
.LeftHeader = "Hier der Text für Links Kopfzeile"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "Hier der Text für Rechts Kopfzeile"
End With
End SubWenn du die Kopfzeile nur für ein bestimmtes Tabellenblatt setzen möchtest, füge den Code in das entsprechende Blatt ein:
Private Sub Worksheet_Activate()
With ActiveSheet.PageSetup
.LeftHeader = "Hier der Text für Links Kopfzeile"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "Hier der Text für Rechts Kopfzeile"
End With
End SubFehler: Makro funktioniert nicht auf dem gewünschten Tabellenblatt.
Tabelle3) einfügst und nicht in Diese Arbeitsmappe.Fehler: Kopf- und Fußzeile auf allen Blättern aktualisiert.
Wenn du die Excel Kopfzeile schützen möchtest, ohne VBA zu verwenden, kannst du die Kopfzeile manuell anpassen und sie anschließend als Vorlage speichern. Das ist jedoch weniger sicher, da die Kopfzeile von jedem Benutzer bearbeitet werden kann.
Um eine Bilddatei in die Kopfzeile einzufügen, kannst du folgenden VBA-Code verwenden:
Private Sub Worksheet_Activate()
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = "C:\Dein\Pfad\Bild.jpg"
With ActiveSheet.PageSetup
.LeftHeader = "&G"
.CenterHeader = "Hier den Text für Mitte Kopfzeile"
.RightHeader = "&G"
End With
End SubErsetze C:\Dein\Pfad\Bild.jpg mit dem tatsächlichen Pfad zu deiner Bilddatei.
1. Kann ich die Kopfzeile für alle Blätter gleichzeitig schützen?
Ja, aber du musst den VBA-Code entsprechend anpassen, um die Kopfzeile für jedes Blatt zu setzen.
2. Wie entferne ich die Kopfzeile?
Du kannst die Kopfzeile entfernen, indem du im Menü Seitenlayout > Kopf- und Fußzeile die entsprechenden Felder leer lässt oder den VBA-Code anpasst, um die Kopfzeile zu löschen.
3. Was mache ich, wenn ich mit VBA nicht vertraut bin?
Nutze die Excel-Hilfe oder Online-Ressourcen, um mehr über VBA zu lernen. Es gibt viele Tutorials, die dir den Einstieg erleichtern können.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen