Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellbezug in Fußzeile

Forumthread: Zellbezug in Fußzeile

Zellbezug in Fußzeile
29.08.2002 09:12:20
beckersbest
Guten Morgen,

ich möchte einen Gewissen Wert einer Zelle (nehmen wir an, den Wert A1 aus der Tabelle Test [Test!A1]) in der Fußzeile stehen haben. Dazu habe ich hier folgenden Code gefunden und genau so in mein Objekt 'DieseArbeitsmappe' (die Fußzeile soll auf jedem Arbeitsblatt vorhanden sein) eingefügt. Zu diesem habe ich noch einmal eine Frage bzw. ich verstehe ihn nicht ganz, vielleicht kann ihn mir ja jemand in kurzen Sätzen erklären:

--------------------------------------
'ClassModule: DieseArbeitsmappe

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Text" Then Exit Sub
If Target.Address <> "$D$12" Then Exit Sub
Sh.PageSetup.LeftHeader = Range("D12").Value
End Sub
----------------------------------------

Meine Fragen:
1) Was macht die erste IF-Abfrage bzw. wofür ist sie?
2) Was macht die zweite IF-Abfrage und bezieht sich $D$12 auf die entsprechende Zelle, wenn ja, welche denn bzw. in welchem Arbeitsblatt?
3) Oder bezieht sich Range("D12").Value auf die entsprechende Zelle, wenn nein, wofür wird dann Range benötigt?

Ich sehe schon, von diesem Code hab ich noch nicht all zu viel verstanden, aber Antworten auf einzelne Fragen helfen mir ja auch schon sehr weiter. Besten Dank schon jetzt

Gruß
Thorsten


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellbezug in Fußzeile
29.08.2002 09:28:51
Charlie
Hallo Thorsten,

>> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Der Code wird ausgeführt, wenn das aktive Blatt gewechselt wird.
>> If Sh.Name = "Text" Then Exit Sub
Ist der Blattname "Test", wird die Prozedur verlassen (keine weitere Ausführung).
>> If Target.Address <> "$D$12" Then Exit Sub
Bei Eingabe in eine andere Zelle als D12 ebenso.
>> Sh.PageSetup.LeftHeader = Range("D12").Value
Bei Eingabe in D12 wird der Inhalt von D12 links in die Kopfzeile übernommen.

Verständlich?

Gruß,
Charlie
End Sub

Anzeige
Re: Zellbezug in Fußzeile
29.08.2002 10:05:50
beckersbest
Hallo Charlie,

hab's kapiert, besten Dank für die schnelle Antwort.

Gruß
Thorsten

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige