Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Anwender
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige