Formeln und Befehle in Excel Fußzeile

[Harald Haas]

Hallo zusammen,

auch wenn das Thema schon in ähnlicher Form in den
Newsgroups steht:

Wie kann ich in einen Bereich (links/Mitte/Rechts) der
Excel 2000/XP oder 2003 Fußzeile einen Befehl oder einen
Bezug zu einer Zelle der aktuellen Arbeitsmappe er- bzw.
herstellen?

z.B.: =A1+A2 oder =B3

Danke im Voraus für eine ausführliche Erklärung.

Harald Haas

[Frank Kabel]

Hi Harald
das geht nur mit VBA. Du kannst direkt keine Formeln inder
Kopf/Fußzeile eingeben.
Füge z.B.: folgende Code in das Modul Deiner Arbeitsmappe ein (nicht in
ein Standardmodul):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
Dim footer_val
For Each wkSht In Me.Worksheets
footer_val = wkSht.Range("A1").value + _
wkSht.Range("A2").value
With wkSht.PageSetup
.CenterFooter = Me.footer_val
End With
Next wkSht
End Sub



--
Regards
Frank Kabel
Frankfurt, Germany

Post by Harald Haas
Hallo zusammen,
auch wenn das Thema schon in ähnlicher Form in den
Wie kann ich in einen Bereich (links/Mitte/Rechts) der
Excel 2000/XP oder 2003 Fußzeile einen Befehl oder einen
Bezug zu einer Zelle der aktuellen Arbeitsmappe er- bzw.
herstellen?
z.B.: =A1+A2 oder =B3
Danke im Voraus für eine ausführliche Erklärung.
Harald Haas

[Harald Haas]

Hallo Frank,

hab ich ausprobiert (bin kein VBA Spezialist), muss aber
was falsch gemacht haben!

Hab ein neues Modul geöffnet (war keins da), deinen Script
reinkopiert (als Versuch) und schon beim Speichern kam es
mir komisch vor, dass er eine neue Mappe abspeicern
wollte????

Hab zwar die Zelle A1 und A2 gefüllt aber der Ausdruck war
(für dich wahrscheinlich logisch) im Fußbereich leer!

Kann wahrscheinlich nur ne Kleinigkeit sein aber was ist
falsch?

Danke nochmal - Harald Haas

-----Originalnachricht-----
Hi Harald
das geht nur mit VBA. Du kannst direkt keine Formeln inder
Kopf/Fußzeile eingeben.
Füge z.B.: folgende Code in das Modul Deiner Arbeitsmappe

ein (nicht in

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
Dim footer_val
For Each wkSht In Me.Worksheets
footer_val = wkSht.Range("A1").value + _
wkSht.Range("A2").value
With wkSht.PageSetup
.CenterFooter = Me.footer_val
End With
Next wkSht
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany

Post by Harald Haas
Hallo zusammen,
auch wenn das Thema schon in ähnlicher Form in den
Wie kann ich in einen Bereich (links/Mitte/Rechts) der
Excel 2000/XP oder 2003 Fußzeile einen Befehl oder einen
Bezug zu einer Zelle der aktuellen Arbeitsmappe er- bzw.
herstellen?
z.B.: =A1+A2 oder =B3
Danke im Voraus für eine ausführliche Erklärung.
Harald Haas

.

[Frank Kabel]

Hi Harald
gehe wie folgt vor:
- öffne Deine existierende Arbeitsmappe
- Drücke ALT+F11 um den VBA Editor zu öffnen
- Suche im linken Explorer Fenster 'DieseArbeitsmappe'
- Doppelklick auf diesen Eintrag
- Code in das erscheinende Editor Fenster kopieren (dieser Code gehört
NICHT in ein Standardmodul)
- VBA Editor schließen
- Arbeitsmappe speichern und einfach mal die Durckvorschau aufrufen

--
Regards
Frank Kabel
Frankfurt, Germany

Post by Harald Haas
Hallo Frank,
hab ich ausprobiert (bin kein VBA Spezialist), muss aber
was falsch gemacht haben!
Hab ein neues Modul geöffnet (war keins da), deinen Script
reinkopiert (als Versuch) und schon beim Speichern kam es
mir komisch vor, dass er eine neue Mappe abspeicern
wollte????
Hab zwar die Zelle A1 und A2 gefüllt aber der Ausdruck war
(für dich wahrscheinlich logisch) im Fußbereich leer!
Kann wahrscheinlich nur ne Kleinigkeit sein aber was ist
falsch?
Danke nochmal - Harald Haas

-----Originalnachricht-----
Hi Harald
das geht nur mit VBA. Du kannst direkt keine Formeln inder
Kopf/Fußzeile eingeben.
Füge z.B.: folgende Code in das Modul Deiner Arbeitsmappe ein (nicht
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
Dim footer_val
For Each wkSht In Me.Worksheets
footer_val = wkSht.Range("A1").value + _
wkSht.Range("A2").value
With wkSht.PageSetup
.CenterFooter = Me.footer_val
End With
Next wkSht
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany

Post by Harald Haas
Hallo zusammen,
auch wenn das Thema schon in ähnlicher Form in den
Wie kann ich in einen Bereich (links/Mitte/Rechts) der
Excel 2000/XP oder 2003 Fußzeile einen Befehl oder einen
Bezug zu einer Zelle der aktuellen Arbeitsmappe er- bzw.
herstellen?
z.B.: =A1+A2 oder =B3
Danke im Voraus für eine ausführliche Erklärung.
Harald Haas

.