Das Archiv des Excel-Forums

Ausdruck eines Zellinhalts in Kopfzeile

Bild

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
Bild


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!


Bild


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


Bild


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


Bild


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


Bild


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


 Bild

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

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