Office: (Office 2013) Kopfzeile dynamisch über Zelle

Hallo zusammen,

ich möchte gerne den Inhalt einer Zelle in die Kopfzeile bekommen.

Hierfür gibt es ja diverse Beiträge, die eigentlich immer den selben VBA-Code vorgeben:

Diese haben ich auch in "DieseArbeitsmappe" reinkopiert, jedoch will einfach nicht der Inhalt der Zelle A1 in die Kopfzeile wandern.

Wo ist mein Problem?*redface.gif*

Anbei auch meine Beispieldatei:
Mappe1.xlsm

Vielen Dank für Eure Hilfe vorab!

:)

 

Hallo Tommy,

bei mir (Excel 2013) funktioniert der Code problemlos.

 

Bei mir nicht (siehe Anhang).

Er zeigt zwar den Namen, aber der steht ja in Zelle A1. Der Name müsste nochmal auftauchen in der Kopfzeile.

Steht bei Dir ganz sicher der Name zweimal auf dem Blatt?

Ich setze Excel 2016 ein...

 

Hallo,

ich hatte auch vor einiger Zeit die Idee, die Kopfzeile per VBA-Code dynamisch zu gestalten und mir die notwendigen Informationen aus einem Arbeitsblatt geholt. Eigentlich hätte dies eine einfache Sache sein sollen. Aber in Kombination mit Datumsformaten und Blattzähler kam es ständig zu neuen Überraschungen.

Am Ende habe ich dann die Erste Zeile als Kopfzeile verwendet, was ja dadurch einfach ging, da ich diese ja als Wiederholungszeile für den Blattwechsel definieren konnte.

Mit diesem Ansatz hatte ich dann keinerlei Probleme mehr. Ich habe dann aber auch alles, was auch im dynamisch generierten Fußbereich, immer wieder zu Problemen geführt hatte, ebenfalls in die Erste bzw. Ersten beiden Zeilen des Tabellenblatts übernommen.

 

Vieleicht solltest Du vor Range noch die Tabelle angeben?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hallo Tommy,

spalte das Ganze in zwei Makros auf: Code:

und in ein allgemeines Modul Code:

Dann funktiniert es.

 

Hallo Hasso,

das könnte auch die Lösung für mein damaliges Problem sein. denn im Debugger hatte immer alles richtig funktioniert. Habe ich dann aber ohne Debugger gedruckt, dann haben die Kopf- und Fußzeilen meist falsche Formate gezeigt. Ich hatte auch den Eindruck, als hinge es davon ab, wie oft ich direkt hintereinander gedruckt hatte.

Alle anderen Tipps, die ich damal bekam und getestet hatte, waren nicht zielführend. Dein aktueller Tipp war damals aber nicht dabei, sonst würde ich mich daran erinnern.

Werde diesen deshlab demnächst testen.

 

Hallo,

warum änderst du nicht kurz die Ansicht ?

Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
' eventuell kurzes Delay einbauen '
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True

Dann aktualisiert Excel alles, was beim Start der Mappe nicht schon in Kopf- und Fußzeile drinstand.

 

Hallo Sabina,

wo soll der Code eingefügt werden?

 

Hallöchen WS,

... warum nicht so ?

PHP:

         Private Sub Workbook_BeforePrint(Cancel As Boolean)

Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview

ActiveSheet.PageSetup.LeftHeader = Range("A1").Value

ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub


 

Hat jetzt mit dem letzten Code geklappt; vielen Dank!

Wie so oft tun sich hieraus neue Probleme auf, die ich einen neunen Beitrag angesprochen habe. https://www.ms-office-forum.net/foru...d.php?t=355900

Neuer Beitrag deshalb, da es noch viel tiefer ins Detail geht und mit dem ursprünglichen Problem nicht mehr so viel gemeinsam hat.