3k Aufrufe
Gefragt in Tabellenkalkulation von ingale Mitglied (131 Punkte)
Hallo,

ich möchte für ein Tabellenblatt die Kopfzeile aus einer Zelle übernehmen und zusätzlich diese Kopfzeile in Arial/10/Fett formatieren.

Mein Code hierzu:
Sub KopfzeilePlanliste0()
Sheets("Planliste0").Select
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Fett" & Sheets("Daten").Range("B21").Value
End With
Sheets("Daten").Select
Range("C15").Select
End Sub

Ohne Formatierung wird der Text übernommen, mit aber nicht.
Kann mir jemand helfen?

Gruß Inge

6 Antworten

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Inge,

benutze doch mal den Makrorecorder, hätte ich jetzt auch nur gemacht.

Gruß Hajo
0 Punkte
Beantwortet von ingale Mitglied (131 Punkte)
Hallo Hajo,

wie willst du denn bei der Makroaufzeichnung die Formel für den Zellbezug in die Kopfzeile einbauen?

Gruß Inge
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
hallo Inge,

den Teil hast du doch schon, es geht doch nur noch um Formatierung von Text.

Gruß Hajo
0 Punkte
Beantwortet von ingale Mitglied (131 Punkte)
Hallo Hajo,

was die reine Formatierung betrifft, kommt bei der Aufzeichnung das raus, was ich auch in meinem Code stehen habe.
Aber in Verbindung mit dem Zellbezug muß noch ein Haken an der Sache sein.

Gruß Inge
0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Halo Inge,

mein Makrorecorder zeichnet was anders auf#
"&""Bodoni MT,Fett""&20 131313"
also
"&""Bodoni MT,Fett""&20 " & Sheets("Daten").Range("B21")
Arial ist bei mir Standard, darum eine andere.

Gruß Hajo
0 Punkte
Beantwortet von ingale Mitglied (131 Punkte)
Hallo Hajo,

war ein kleiner Fehler mit großer Wirkung:
mir fehlte die Leerstelle nach der Schriftgröße
"&""Arial,Fett""&10 "

Jetzt kappt es.

Vielen Danke!

Gruß Inge
...