Office: (Office 2010) Kopfzeile per VBA ändern

Guten Abend,

meine Versuche, die Kopfzeile einer Exceltabelle per VBA zu ändern zeigen immer ein unerwünschtes Ergebnis. Nachstehend der Kode:

Sub TitelCenterAendern()
Dim stNeuDatumJHV As String
Dim stNeuTitel As String
Dim stAltTitel As String
Dim AltDatumJHV As String

AltDatumJHV = ""
stNeuDatumJHV = "16.11.2017"
ActiveWindow.View = xlPageLayoutView
Application.PrintCommunication = False
With ActiveSheet.PageSetup
stAltTitel = .CenterHeader
AltDatumJHV = Right(stAltTitel, 10)
stNeuTitel = Replace(stAltTitel, AltDatumJHV, stNeuDatumJHV)
.CenterHeader = stNeuTitel
End With
ActiveWindow.View = xlNormalView
Application.PrintCommunication = True

Vorher sieht das Blatt so aus: TitelAlt_171116.JPG
und nacher: TitelNeu_171116.JPG

:)

 

Moin!
Lade doch mal eine fast leere Datei hoch.
Bei den ganzen (überflüssigen) Variablen wird mir ja ganz schwindlig.
Durchstrichen wird normal mittels &S geschaltet.
https://msdn.microsoft.com/de-de/VBA...rs-and-footers
Aber ich mag das jetzt nicht nachbauen, daher: Datei.

Gruß Ralf

 

Hallo RPP63neu,

hier die Datei, bei welcher die Kopfzeile (nur das Datum) geändert werden soll.

Danke für Deine Mühe

 

In der Zwischenzeit habe ich eine Lösung gefunden:

Sub TitelCenterAendern(strNeuDatumJHV)
ActiveSheet.Name = "Anwesende"
With ActiveSheet.PageSetup
.LeftHeader = ""
.RightHeader = "Seite &P von &N"
.CenterHeader = "&C&""Arial,Fett""Bürgerverein " & Chr(10) _
& "Anwesenheitsliste zur Jahreshauptversammlung" & Chr(10) & "am " & strNeuDatumJHV
End With
End Sub 'TitelCenterAendern