Zelle in Kopfzeile UND formatieren

Computer: Software & Programmierung Visual Basic
#1

Hallo,

jetzt muss ich mich an euch wenden. ich weiß nicht wo der fehler ist.
ich möchte einfach den zellinhalt F1 in die mittlere kopfzeile und formatieren.
einen formatieren text einzufügen funktioniert. nur den zellinhalt einfügen funktioniert auch. aber nicht beides:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim kopf As String
kopf = Sheets(„Tabelle1“).Range(„F1“)
With ActiveSheet.PageSetup
.CenterHeader = „&“„Courier New,Fett“"&20" & kopf
End With
End Sub

dabei sollte es so funktionieren oder?
gruß

#2

ich möchte einfach den zellinhalt F1 in die mittlere kopfzeile
und formatieren.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Dim kopf As String
kopf = Sheets(„Tabelle1“).Range(„F1“)
With ActiveSheet.PageSetup
.CenterHeader = „&“„Courier New,Fett“"&20" & kopf
End With
End Sub

Hallo Rene,

im Code sehe ich keinen Fehler.
Ich habe ähnlichen Code getestet, anfangs klappte da auch wenig.
Manuell die Kopfzeile auf (keine) gesetzt, dann den Code aufgerufen klappte damm.
Schreibs vielleicht mal so:

.CenterHeader = „“
.CenterHeader = „&“„Courier New,Fett“"&20" & kopf

Ggfs. den oberen Seitenrand erhöhen.

Gruß
Reinhard