Office: Zelleninhalt per VBA in die Kopfzeile

Hallo Leute,

ich möchte per VBA Zelleninhalte bestimmter Zellen in die Kopfzeile eines Tabellenblattes übernehmen.

Folgenden Code habe ich:

Code:

Sub Kopfzeile()
    Dim Ws As Worksheet
    Set Ws = Worksheets("Jan")
With ActiveSheet.PageSetup
    vkopfzeile = Range("Stammdaten!I2") & vbCrLf & Range("Stammdaten!I3")
    .PageSetup.CenterHeader = vkopfzeile
End With
End Sub

Leider funktioniert der Code nicht. Soweit ich gelesen habe, sollte nach Veränderung des Textes in einer Zelle die entsprechende Kopfzeile verändert werden, was aber nicht passiert.

Was genau ist bei meiner Lösung falsch?

 

Hallo,

der folgende Code gibt die Inhalte der beiden Zellen I2 und I3 des Arbeitsblattes "Stammdaten" in das mittlere Kopffeld der Druckvoransicht/Druckausgabe 2-zeilig aus:

Code:

Sub Kopfzeile()
    Dim vkopfzeile As String
    
    vkopfzeile = Range("Stammdaten!I2") & vbCrLf & Range("Stammdaten!I3")
    With ActiveSheet.PageSetup
        .CenterHeader = vkopfzeile
    End With
End Sub