Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Fußzeile mit Verweis auf eine Zelle - Geht das ?

1,019 views
Skip to first unread message

Thomas M.

unread,
Mar 20, 2009, 4:17:13 AM3/20/09
to
Hallo,

noch eine Frage zu meiner Dokumentenvorlage von gestern :=)
Kann ich in der Fußzeile einen Verweis auf eine Zelle eines Datenblattes
einfügen ? Ich möchte also z.B. in der Fußzeile den Inhalt der Zelle
Tabelle1!A1 haben. Geht das irgendwie ?

Gruß
Thomas


Andreas Killer

unread,
Mar 20, 2009, 8:12:50 AM3/20/09
to
Thomas M. schrieb:

> Kann ich in der Fußzeile einen Verweis auf eine Zelle eines Datenblattes
> einfügen ? Ich möchte also z.B. in der Fußzeile den Inhalt der Zelle
> Tabelle1!A1 haben. Geht das irgendwie ?

Nein. Ja, Du musst es programmieren:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.CenterFooter = Sheets("Tabelle1").Range("A1")
End With
End Sub

Andreas.

frankarendt-theilen

unread,
Mar 20, 2009, 8:19:38 AM3/20/09
to
Hallo Thomas,
nur per VBA, z.B.:

Activesheet.PageSetup.RightHeader = _
Worksheets("Tabelle1").Range(""A1").Value


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen

--
(ehem. MVP für Excel)
Website: www.xl-faq.de

Thomas M.

unread,
Mar 23, 2009, 4:18:59 AM3/23/09
to
Hallo Andreas,

der Vorschlag funktioniert prima!.
Darf ich vielleicht noch eine kleine Ergänzung erfragen ?

Kann man den Text auch formatieren (der Text soll Fett und in der
Schriftgröße 9 dargestellt werden) ?
Ich habe versucht den notwendigen VBA Code per Makroaufzeichnung zu
generieren und dann in das Script unten zu integrieren, dass funktioniert
aber nicht richtig.
Und noch eine Frage: Gibt es die Möglichkeit die Fußzeile mit einem
horizontalen Strich über die gesamte Blattbreite optisch abzusetzen ?

Gruß
Thomas


"Andreas Killer" <andreas...@gmx.net> schrieb im Newsbeitrag
news:49c38840$0$31871$9b4e...@newsspool3.arcor-online.net...

Thomas M.

unread,
Mar 23, 2009, 4:20:09 AM3/23/09
to
Hallo Frank,

das funktioniert aus irgendeinem Grund bei mir nicht. Aber der Tip von
Andreas stellt mir das gewünschte dar.
Trotzdem Danke.

Gruß
Thomas


<Frank Arendt-Theilen> schrieb im Newsbeitrag
news:t827s41seadaua1d4...@4ax.com...

Andreas Killer

unread,
Mar 23, 2009, 10:21:02 AM3/23/09
to
Thomas M. schrieb:

> der Vorschlag funktioniert prima!.
> Darf ich vielleicht noch eine kleine Ergänzung erfragen ?

Nix da, sonst könnte da ja jeder kommen. :-)))

> Kann man den Text auch formatieren (der Text soll Fett und in der
> Schriftgröße 9 dargestellt werden) ?
> Ich habe versucht den notwendigen VBA Code per Makroaufzeichnung zu
> generieren und dann in das Script unten zu integrieren, dass funktioniert
> aber nicht richtig.

Hmm, also wenn ich die Makroaufzeichnung starte, Datei\Seite
einrichten\Benutz. Fußzeile\Arial Fett 9 anklicke, dann qwe eingebe,
dann sieht der Code so aus:

.CenterFooter = "&""Arial,Fett""&9qwe"

Tun wir das qwe weg und den Rest dran:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.CenterFooter = "&""Arial,Fett""&9" & _


Sheets("Tabelle1").Range("A1")
End With
End Sub

Geht bei mir ohne Probleme. Bei Dir nicht?

> Und noch eine Frage: Gibt es die Möglichkeit die Fußzeile mit einem
> horizontalen Strich über die gesamte Blattbreite optisch abzusetzen ?

Nein.

Andreas.

0 new messages