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
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
einfach als Modulmakro anlegen und vielleicht noch einem Button zuweisen oder als Ereignismakro vor dem Drucken
gruß
schnallgonz
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
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,
hat sich wohl geändert, weil
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.
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
Zitat:
Es haldelt sich um die Zellenbezüge aus Tabelle1
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?
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
Besten Dank!
MfG Atze
Antwort 6 von atze43
Alles klar es rennt!!!
Besten Dank!
MfG Atze
Besten Dank!
MfG Atze