Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zelleninhalt in Kopfzeile übernehmen





Frage

Moin Moin!!! Frage an die Fachwelt! Wie bekomme ich in Excel den Zelleninhalt in die Kopfzeile? Die Kopfzeile soll wie folgt aussehen: BV (Zelle H6) (Zelle H8) Es haldelt sich um die Zellenbezüge aus Tabelle1. Die Kopfzeile soll aber auch in andere Tabellen sichtbat sein. Bin VBA Neuling! Wenns geht möglichst einfach! Besten Dank !!!

Antwort 1 von Saarbauer

Hallo,

leider nicht ganz verständlich. Was meinst du mit Kopfzeile? Kopfzeile beim Ausdruck oder oberste Zeile.

Gruß

Helmut

Antwort 2 von schnallgonz

Salve
folgender Code schreibt Dir den Zellinhalt aus H6 im Blatt Tabelle1 in alle Blätter als linke Kopfzeile usw

Sub KopfzeileBasteln()
Dim Blatt As Object
  For Each Blatt In Sheets
    With Blatt.PageSetup
        .LeftHeader = Sheets("Tabelle1").Range("H6").Value
        .CenterHeader = "Meine mittlere Kopfzeile"
        .RightHeader = "Meine rechte Kopfzeile"
    End With
  Next
End Sub


einfach als Modulmakro anlegen und vielleicht noch einem Button zuweisen oder als Ereignismakro vor dem Drucken

Private Sub Workbook_BeforePrint(Cancel As Boolean)
KopfzeileBasteln
End Sub


gruß
schnallgonz

Antwort 3 von atze43

Moin Schnallgonz!
Hab alles so eingegeben wie geschildert.
Der sagt mir jetzt aber "Index außerhalb des gültigen Bereiches"
Was kann ich machen?
Kann es damit zusammenhängen, dass meine Tabelle nicht Tabelle1 sondern 1. Objektbeschreibung heisst?

Für Helmut!
Ich meine die Kopfzeile beim Ausdruck!

Mfg Atze43

Antwort 4 von schnallgonz

Hallo Atze,
Zitat:
Es haldelt sich um die Zellenbezüge aus Tabelle1

hat sich wohl geändert, weil
Zitat:
dass meine Tabelle nicht Tabelle1 sondern 1. Objektbeschreibung heisst?

so isses, man muss Herrn Excel sagen, wo er nach den gewünschten Inhalten schauen soll.

Ersetze in folgender CodeZeile "Tabelle1" durch den Blattnamen, aus dem die Zellinhalte gelesen werden sollen.

.LeftHeader = Sheets("Tabelle1").Range("H6").Value


Für H8 oder was auch immer natürlich ebenfalls anpassen, egal ob left, center oder right;
Für Fußzeile "Header" durch "Footer" ersetzen.
gruß
schnallgonz

Antwort 5 von atze43

Alles klar es rennt!!!
Besten Dank!
MfG Atze

Antwort 6 von atze43

Alles klar es rennt!!!
Besten Dank!
MfG Atze