Code für Kopfzeile anpassen!

Sub Kopf_und_Fusszeile_setzen() 'Auf jedem Tabellenblatt wird die Fusszeile gesetzt Dim ws As Worksheet For Each ws In Worksheets With ActiveSheet.PageSetup .LeftHeader = "&""Arial,Standard""&12" & "Projekt: " & Range("D5").Value _ _ & vbLf & "Anlagenbez.: " & Range("D6").Value _ & vbLf & "Gerätebauart: " & Range("D7").Value .CenterHeader = "&""Arial,Standard""&12" & vbLf & vbLf & "ID:" & Range("J7").Value .RightHeader = "&""Arial,Standard""&12" & "Kom.-NR.: " & Range("Q5").Value _ & vbLf & "Sachbearbeiter: " & Range("Q6").Value _ & vbLf & "Zeichn.-NR.: " & Range("Q7").Value End With Next ws End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim WS As Worksheet Application.ScreenUpdating = False For Each WS In Worksheets If WS.Name "Tabelle4" And WS.Name "Tabelle5" Then With WS.PageSetup .LeftHeader = ... .RightHeader = ... .CenterHeader = ... End With End If Next WS

Hallo Thomas,
eigentlich gehört der Code in ein allgemeines Modul.
Er sollte auch unter DieseArbeitsmappe funktionieren.
Unter "Tabelle4" kann es Probleme geben, da du im Code mit Range -ohne Angabe des zugehörigen Blatts- arbeitest. Das Makro holt dann die Informationen immer aus den Zellen dieses Blattes, unabhängig davon welches Blatt das aktive Blatt ist.
Hier sollte im Code das Blatt auf das sich Range beziehen soll mit angegeben werden, um die Kopfzeileninformationen korrekt ausgelesen werden.
Die Ansicht (Seitenlayout, Normal, Umbruchvorschau) und auch eingestellte Druckbereiche spielen keine Rolle - zumindest in der von mir verwendeten Version Excel 2010. Die Kopf/Fußzeilen werden korrekt aktualisiert.
Gruß
Franz
Angepasster Code. Wenn die Kopfzeileninformationen jeweils aus dem Tabellenblatt ausgelesen werden sollen, dessen Kopfzeile angepasst werden soll, dann kannst du
Set wsData = ...
weglassen und vor .Range(...) durch ws ersetzen.

Sub Kopf_und_Fusszeile_setzen()
'Auf jedem Tabellenblatt wird die Fusszeile gesetzt
Dim ws As Worksheet, wsData As Worksheet
Application.ScreenUpdating = False
Set wsData = Worksheets("Tabelle1") 'Tabellenblatt mit den Kopfzeilen-Informationen
For Each ws In ActiveWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle4", "Tabelle5"
'in diesen Tabellenblättern Kopfzeilen nicht formatieren
Case Else
With ws.PageSetup
.LeftHeader = "&""Arial,Standard""&12" & "Projekt:           " _
& wsData.Range("D5").Value _
& vbLf & "Anlagenbez.:  " & wsData.Range("D6").Value _
& vbLf & "Gerätebauart: " & wsData.Range("D7").Value
.CenterHeader = "&""Arial,Standard""&12" & vbLf & vbLf & "ID:" _
& wsData.Range("J7").Value
.RightHeader = "&""Arial,Standard""&12" & "Kom.-NR.: " & wsData.Range("Q5").Value _
& vbLf & "Sachbearbeiter: " & wsData.Range("Q6").Value _
& vbLf & "Zeichn.-NR.: " & wsData.Range("Q7").Value
End With
End Select
Next ws
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread