ich möchte gern mit VBA die Kopfzeile vom aktiven Sheet befüllen, zuvor sollten evtl. alte Inhalte entfernt werden.
Dazu habe ich folgenden Code
Sub Kopfzeile_setzen()
Dim a As String
a = Sheets("user_data").Cells(32, 2)
With ActiveSheet.PageSetup
.CenterHeaderPicture.Filename = ""
.CenterHeader = "&G"
End With
With ActiveSheet.PageSetup
.CenterHeaderPicture.Filename = Sheets("configeingabe").Cells(158, 4)
.CenterHeader = "&G" & Chr(10) & "&Arial" & "&12" & C & a
End With
End Sub
Die Grafik erscheint, darunter soll eine Textzeile entsprechend der Variable a erscheinen.Komischerweise kommt hier auch der Name des Registers und ein Teil vom Wort Arial.
Wo steckt der Fehler?
Vielen Dank.
Karsten