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

Zelleninhalt als Variable in Kopfzeile übernehmen

5,061 views
Skip to first unread message

Johannes

unread,
Dec 6, 2009, 11:25:01 AM12/6/09
to
Hallo,
wie kann ich den Inhalt einer Zelle als Variable in die Kopfzeile übernehmen?

eifaches Beispiel:
Zelle A1 = 2007
Kopfzeile:: Kalenderjahr
In Kopfzeile soll dann "Kalenderjahr 2007" stehen.

Kann mir jemand bitte eine Lösung geben?

[Home and Student 2007, Vista Home Premium]

Gruß Johannes

Claus Busch

unread,
Dec 6, 2009, 11:37:06 AM12/6/09
to
Hallo Johannes,

Am Sun, 6 Dec 2009 08:25:01 -0800 schrieb Johannes:

> wie kann ich den Inhalt einer Zelle als Variable in die Kopfzeile �bernehmen?


>
> eifaches Beispiel:
> Zelle A1 = 2007
> Kopfzeile:: Kalenderjahr
> In Kopfzeile soll dann "Kalenderjahr 2007" stehen.

probiers mal so:

Sub Kopfzeile()
With ActiveSheet.PageSetup
.CenterHeader = "Kalenderjahr " & Range("A1")
End With
End Sub


Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Johannes

unread,
Dec 6, 2009, 12:57:01 PM12/6/09
to
Herzlichen Dank Claus,

leider habe ich keine Ahnung mit Makros.
Was muss ich tun, damit dieses Makro automatisch ausgeführt wird?

Und was ist zu tun, wenn die Kopfzeile über mehreren Tabellen
(Arbeitsblättern) angegeben werden soll? Als Wert soll Zelle A1 der ersten
Tabelle eingetragen werden

Gruß Johannes

"Claus Busch" schrieb:

> Hallo Johannes,
>
> Am Sun, 6 Dec 2009 08:25:01 -0800 schrieb Johannes:
>

> > wie kann ich den Inhalt einer Zelle als Variable in die Kopfzeile übernehmen?


> >
> > eifaches Beispiel:
> > Zelle A1 = 2007
> > Kopfzeile:: Kalenderjahr
> > In Kopfzeile soll dann "Kalenderjahr 2007" stehen.
>
> probiers mal so:
>
> Sub Kopfzeile()
> With ActiveSheet.PageSetup
> .CenterHeader = "Kalenderjahr " & Range("A1")
> End With
> End Sub
>
>

> Mit freundlichen Grüssen


> Claus Busch
> --
> Win XP PRof SP2 / Vista Ultimate SP2
> Office 2003 SP2 /2007 Ultimate SP2

> .
>

Claus Busch

unread,
Dec 6, 2009, 1:16:35 PM12/6/09
to
Hallo Johannes,

Am Sun, 6 Dec 2009 09:57:01 -0800 schrieb Johannes:

> leider habe ich keine Ahnung mit Makros.

> Was muss ich tun, damit dieses Makro automatisch ausgef�hrt wird?
>
> Und was ist zu tun, wenn die Kopfzeile �ber mehreren Tabellen
> (Arbeitsbl�ttern) angegeben werden soll? Als Wert soll Zelle A1 der ersten
> Tabelle eingetragen werden

klicke rechts auf den Tabellenreiter der Tabelle1 und w�hle "Code
anzeigen". F�ge dann untenstehenden Code in das Codefenster ein (sobald in
Tabelle1 in A1 das Jahr ge�ndert wird, werden in allen Bl�ttern die
Kopfzeilen ge�ndert):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet

If Target.Address(0, 0) <> "A1" Then Exit Sub

For Each ws In Worksheets
With ws.PageSetup
.CenterHeader = "Kalenderjahr " & _
Target.Value
End With
Next

End Sub


Mit freundlichen Gr�ssen

Eberhard Funke

unread,
Dec 6, 2009, 1:33:08 PM12/6/09
to
Am Sun, 6 Dec 2009 08:25:01 -0800 schrieb Johannes:


> wie kann ich den Inhalt einer Zelle als Variable in die Kopfzeile �bernehmen?
>
> eifaches Beispiel:
in Tabelle1


> Zelle A1 = 2007
> Kopfzeile:: Kalenderjahr
> In Kopfzeile soll dann "Kalenderjahr 2007" stehen.

Hallo Johannes,

schreib in die Zelle, in der die Kopfzeile stehen soll:
="Kalenderjahr "&Tabelle1!A1
Wenn diese in mehreren Tabellenbl�ttern in derselben Zelle (z. B. B1)
stehen soll, dann klick bei gedr�ckter Strg-Taste zun�chst unten auf alle
in Frage kommenden Tabellenreiter und gib dann die Formel in B1 ein.

--
Mit freundlichen Gr�ssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

0 new messages