Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.05.2025 20:17:36
Nummerierung bei Autofilter verwenden
12.05.2025 18:53:08
Mit Formel Maximalwert aus Quelldaten ermitteln
12.05.2025 17:30:25
Verknüpfungen aktualisieren: Geht und geht nicht??
12.05.2025 16:53:00
Übernahme der Werte aus grün gefärbten Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck eines Zellinhalts in Kopfzeile

Forumthread: 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
Anzeige

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

Kategorie
Druck
Tags
#datum #kopfzeile #vba
Relevante Fragen
Anzeige
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!
Anzeige
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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige