Genial!!! :o) Funktioniert!!!
Vielen herzlichen Dank!!!!!
Mein neues Problemchen: Es schreibt nun mit diesem Befehl den Inhalt der beiden Zellen untereinander in der Kopfzeile - wie gewünscht - allerdings entsteht dabei dazwischen eine Leerzeile.
Bekommt man das auch noch irgendwie in den Griff, dass die beiden Werte direkt untereinander geschrieben werden, ohne eine zusätzliche Leerzeile?
Dies führe ich derzeit aus - damit befüllt es mir mit 3 Zeilen die Mitte der Kopfzeile, mit 2 Zeilen rechts die Kopfzeile und mit 1 Zeile links die Fußzeile. Leider entsteht wie gesagt bei der Kopfzeile jeweils eine Leerzeile
Sub Kopfzeilentest()
Dim Blatt As Object
For Each Blatt In Sheets
With Blatt.PageSetup
.CenterHeader = "&""Arial,Fett""&8 " & Sheets("Deckblatt").Range("N6").Value & vbNewLine & Sheets("Deckblatt").Range("N7").Value & vbNewLine & "Festigkeitsnachweis"
.RightHeader = "&""Arial,Fett""&10 " & Sheets("Deckblatt").Range("N8").Value & vbNewLine & Sheets("Deckblatt").Range("N5").Value
.LeftFooter = Sheets("Deckblatt").Range("N4").Value
End With
Next
End Sub
Danke vorab :o)
lg
Thomas