HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ausdruck eines Zellinhalts in Kopfzeile

Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 13:11:36
Erich M.
Hallo zusammen,

wie kann ich per VBA in der Kopfzeile veranlassen, dass immer
der Inhalt der Zelle
D1 (= ein bestimmtes Datum)
Tabelle: "Hinweise"
mit Text: " Fassung per:"

ausgedruckt wird?

Vielen Dank für eine Hilfe!

mfg
Erich

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 13:46:38
Galenzo
Hallo,

füge in das Klassenmodul "DieseArbeitsmappe" dies ein:



Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.PageSetup.LeftHeader = "Fassung per:" & Sheets("Tabelle1").Range("D1").Value
End Sub


Viel Erfolg!
AW: Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 13:47:44
Galenzo
Korrektur:
.... "Fassung per:" & Sheets("Hinweise").Range("D1").Value .....
AW: Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 16:20:54
Erich M.
Danke!
Habe mich für die Lösung von beni-taro entschieden

mfg
Erich
AW: Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 13:50:26
beni-taro
Hallo Erich,

füge die folgende Sequenz ein, das sollte dann laufen:

Dim DAT As Variant
DAT = Range("D1").Value
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Fett""&14" & DAT
.CenterHeader = "&F"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Seite &P von &N"
.RightFooter = "Fassung per: &D"
End With

Gruß
beni-taro
AW: Ausdruck eines Zellinhalts in Kopfzeile
01.10.2003 16:18:39
Erich M.
Hallo beni-taro,

der vorschlag funktioniert soweit.
Das Datum erscheint allerdings mit MM.TT.JJJJ obwohl es in der Zelle mit TT.MM.JJJJ steht.

Kann das für den Ausdruck beibehalten werden?

Danke!

mfg
Erich

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!