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 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

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

Excel-Beispiele zum Thema " Ausdruck eines Zellinhalts in Kopfzeile"

Label in Zelle A1 bei jedem Ausdruck um 1 hochzählen		Druckseiten und Anzahl der Ausdrucke über UserForm festlegen
Grafik in Kopfzeile		Kopfzeile der Zelle mit dem höchsten Wert ermitteln.
Kopfzeile in Buchform drucken		Randeinstellung der Druck-Kopfzeile
Änderung der Kopfzeile bei Zelleintrag		Datei- incl. Pfadname in Kopfzeile
Seitennummer und Seitenanzahl per VBA in Kopfzeile		Verweise anhand einer Kopfzeile erkennen
Ermittlung der Kopfzeile nach der Funkion KGRÖSSTE()		Kopfzeile nur auf erstem Blatt drucken
Zelleingabe automatisch in Kopfzeile übernehmen		Kopfzeile einer Autofilter-Tabelle gelb hinterlegen
Dokumententitel und UserName in Kopfzeile übernehmen		Kopfzeilen anhand von Max/Min-Werten ermitteln
Drucken der UserForm im Querformat mit Kopfzeile