Herbers Excel-Forum - das Archiv

In Kopf-/Fußnote Verweis auf Zelle

Bild

Betrifft: In Kopf-/Fußnote Verweis auf Zelle
von: Boris

Geschrieben am: 09.01.2007 14:23:46
Hi,
ist es möglich in Excel in der Kopf-/Fußnote den Inhalt einer Zelle anzeigen zu lassen?
Gruß,
Boris
Bild

Betrifft: AW: In Kopf-/Fußnote Verweis auf Zelle
von: Daniel Eisert

Geschrieben am: 09.01.2007 14:40:16
Hallo
meines Wissens nach nicht (wobei ich mich da gerne eines bessern belehren lasse)
für die Kopfzeile gäbs nen Workaround:
- in DATEI - SEITE EINRICHTEN - TABELLE -WIEDERHOLUNGSZEILEN die Zeile 1 eingeben
- in DATEI - SEITE EINRICHTEN - RÄNDER den oberen Rand für den Inhalt auf die gleiche Höhe wie die Kopfzeile schieben.
Dann kannst du die erste Zeile als Kopfzeile vewenden, und da kannst du ja auf andere Zellen veweisen. Geht aber nur für die Kopfzeile.
Wenn allerdings zusätzlich noch Text in der Kopfzeile eingegeben ist, werden dann beide ineinandder gedruckt, dh. du mußt mit Rand und Spaltenbreite etwas rumexperimentieren, wenns gut aussehen soll.
gruß, Daniel
Bild

Betrifft: AW: In Kopf-/Fußnote Verweis auf Zelle
von: Franc

Geschrieben am: 09.01.2007 15:27:43
einmal ausführen ^^
Wenn es nciht zentriert sein soll dann anstatt Center entweder right oder left
Wenn Links, in der mitte und Rechts etwas stehen soll dann entsprechend 3 Zeilen anlegen
Sub kopfundFusszeile()
ActiveSheet.PageSetup.CenterHeader = [A1] 'Kopfzeile
ActiveSheet.PageSetup.CenterFooter = [B1] 'Fußzeile
End Sub

Bild

Betrifft: AW: In Kopf-/Fußnote Verweis auf Zelle
von: fcs

Geschrieben am: 09.01.2007 15:33:10
Hallo Boris,
als Alternative zu Daniels Vorschlag kann man den Zellinhalt per Makro vor Drucken/Seitenvorschau und/oder Speichern in die entsprechende Kopf-/Fusszeile übertragen. Die Makros müssen im VBA-Editor unter "DieseArbeitsmappe" eingefügt werden.
Gruß
Franz
Beispiel für Eintrag in die mittlere Fußzeile, wobei für die einzelnen Tabellen Inhalte aus unterschiedlichen Zellen übertragen werden:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub KopfFussZeile()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Select Case Blatt.Name
Case "Tabelle1", "Tabelle2"
Blatt.PageSetup.CenterFooter = Blatt.Range("A5").Value & " " & Blatt.Range("A6").Text
Case "Tabelle3"
Blatt.PageSetup.CenterFooter = Blatt.Range("B10").Value
Case Else
'do nothing
End Select
Next
End Sub

Bild

Betrifft: AW: In Kopf-/Fußnote Verweis auf Zelle
von: Boris
Geschrieben am: 11.01.2007 14:26:07
Vielen Dank an Euch,
funktioniert. nur sehr schade, dass man das ganze über VBA lösen muss...
Gruß,
Boris
 Bild
Excel-Beispiele zum Thema "In Kopf-/Fußnote Verweis auf Zelle"
SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen Per VBA einen Verweis zu einer *.DLL erstellen
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche VBE-Verweis löschen
Arbeitszeittabelle und SVERWEIS-Formel Verweise anhand einer Kopfzeile erkennen
Zugriff über SVERWEIS() auf eine Artikelliste Verweise auf Zellen in geschlossener Arbeitsmappe erstellen
SVERWEIS-Formel über mehrere Fundstellen SVERWEIS-, WVERWEIS- und Matrixformel-Beispiele