Herbers Excel/VBA-Archiv
Ausdruck eines Zellinhalts in Kopfzeile
- Ausdruck eines Zellinhalts in Kopfzeile von Erich M. vom 01.10.2003 13:11:36
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Galenzo am 01.10.2003 13:46:38
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Galenzo am 01.10.2003 13:47:44
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Erich M. am 01.10.2003 16:20:54
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Erich M. am 01.10.2003 16:20:54
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Galenzo am 01.10.2003 13:47:44
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von beni-taro am 01.10.2003 13:50:26
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Erich M. am 01.10.2003 16:18:39
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Erich M. am 01.10.2003 16:18:39
- AW: Ausdruck eines Zellinhalts in Kopfzeile - von Galenzo am 01.10.2003 13:46:38
 |
Betrifft: Ausdruck eines Zellinhalts in Kopfzeile
von: Erich M.
Geschrieben am: 01.10.2003 13:11:36
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
 |
Betrifft: AW: Ausdruck eines Zellinhalts in Kopfzeile von: Galenzo
Geschrieben am: 01.10.2003 13:46:38
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!
| |
Betrifft: AW: Ausdruck eines Zellinhalts in Kopfzeile von: Galenzo
Geschrieben am: 01.10.2003 13:47:44
Korrektur:
.... "Fassung per:" & Sheets("Hinweise").Range("D1").Value .....
| |
Betrifft: AW: Ausdruck eines Zellinhalts in Kopfzeile von: Erich M.
Geschrieben am: 01.10.2003 16:20:54
Danke!
Habe mich für die Lösung von beni-taro entschieden
mfg
Erich
| |
Betrifft: AW: Ausdruck eines Zellinhalts in Kopfzeile von: beni-taro
Geschrieben am: 01.10.2003 13:50:26
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
| |
Betrifft: AW: Ausdruck eines Zellinhalts in Kopfzeile von: Erich M.
Geschrieben am: 01.10.2003 16:18:39
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
| |