Inhalte einer Zelle in der Kopfzeile ausgeben

Forumthread: Inhalte einer Zelle in der Kopfzeile ausgeben

03.12.2007 16:22:00

Hallo,
ich wollte eine Kopfzeile programmieren.
Der Inhalt des leftHeader soll einen Namen und den Stand ausgeben.
Da dieser Stand dynamisch ist (ändert sich monatlich) will ich diesen so programmieren.
Der Monat (in Zahlen) steht in einem anderen Tabellenblatt, wo er auch für andere Berechnungen benötigt wird.
Er soll mit den Inhalt der Zelle B10 aus der Tabelle 5 ausgeben. Dieses verknüpfe ich dann mit der Anweisung
.LeftHeader = "FD 100 Stand " & ...
Ich hoffe es ist etwas verständlich
Gruß DI

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhalte einer Zelle in der Kopfzeile ausgeben

03.12.2007 16:49:45

Peter

Hallo DI,
ActiveSheet.PageSetup.RightHeader = "&""Arial,Standard""&10" _
& "FD 100 Stand " & Sheets("Tabelle5").Cells(2, 2).Value
Gruß Peter

AW: Inhalte einer Zelle in der Kopfzeile ausgeben

03.12.2007 17:01:57

Hallo Peter,
Vielen Dank für die Mühe
Gruß

AW: Inhalte einer Zelle in der Kopfzeile ausgeben

03.12.2007 20:57:05

Daniel

Hi
wenns in die Kopfzeile rein soll, ist es u.U. geschicker, oben noch ne Zeile einzufügen, dort nen Zellbezug zum Wert reinschreiben und die obere Zeile im SeitenEinstellen-Menü als Wiederholungszeile einstellen.
Vorteil1: du brauchst kein Makro
Vorteil2: ein Makro zum Verändern der Seiteneinrichtung ist immer sehr langsam.
Makro brauchst du nur, wenn der Wert in die Fußzeile rein soll, da geht der Trick mit der Wiederholungszeile nicht.
Gruß, Daniel

Infobox / Tutorial

Inhalte einer Zelle in der Kopfzeile ausgeben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und das gewünschte Arbeitsblatt.
Drücke Alt + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeinWorkbookName)“ > Einfügen > Modul.

Gib den folgenden Code ein, um den Inhalt einer Zelle in der Kopfzeile auszugeben:

Sub KopfzeileSetzen()
   Dim standWert As String
   standWert = Sheets("Tabelle5").Cells(2, 2).Value
   ActiveSheet.PageSetup.LeftHeader = "FD 100 Stand " & standWert
End Sub

Schließe den VBA-Editor und führe das Makro aus. Gehe dazu zurück zu Excel, drücke Alt + F8, wähle KopfzeileSetzen und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

Fehler: "Laufzeitfehler 9: Index außerhalb des Bereichs."
- Lösung: Überprüfe, ob der Tabellenblattname „Tabelle5“ korrekt ist und existiert.
Fehler: Kopfzeile wird nicht angezeigt.
- Lösung: Stelle sicher, dass du in der Druckansicht bist. Überprüfe die Seitenlayout-Einstellungen.

Alternative Methoden

Eine alternative Methode, um Inhalte in der Kopfzeile anzuzeigen, ist das Einfügen einer Zeile oben im Arbeitsblatt:

Füge eine neue Zeile ein und schreibe den Zellbezug für den gewünschten Wert in die obere Zeile.
Gehe zu Seitenlayout > Drucktitel und wähle die Zeile als Wiederholungszeile aus.

Vorteile dieser Methode:

Kein Makro erforderlich.
Einfachere Anpassungen, wenn der Wert sich ändert.

Praktische Beispiele

Beispiel 1: Dynamische Kopfzeile

Wenn der Wert in Zelle B10 auf „Januar“ steht, wird die Kopfzeile automatisch „FD 100 Stand Januar“ angezeigt.

Beispiel 2: Verwendung von mehreren Zellen

Du kannst mehrere Zellbezüge kombinieren, um komplexere Kopfzeilen zu erstellen:

ActiveSheet.PageSetup.LeftHeader = "FD 100 Stand " & Sheets("Tabelle5").Cells(2, 2).Value & " - " & Sheets("Tabelle5").Cells(3, 2).Value

Tipps für Profis

Makros optimieren: Vermeide unnötige Berechnungen innerhalb von Makros, um die Ausführung zu beschleunigen.
Fehlerbehandlung: Füge Fehlerbehandlung in dein Makro ein, um unerwartete Probleme elegant zu lösen.
```
On Error Resume Next
' Dein Code hier
On Error GoTo 0
```

FAQ: Häufige Fragen

1. Frage
Wie kann ich die Kopfzeile für alle Arbeitsblätter gleichzeitig setzen?
Antwort: Du kannst eine Schleife verwenden, um alle Blätter durchzugehen und die Kopfzeile entsprechend zu setzen.

2. Frage
Kann ich die Kopfzeile auch ohne VBA anpassen?
Antwort: Ja, du kannst die Kopfzeile manuell über die Seitenlayout-Ansicht anpassen, jedoch ist dies weniger dynamisch.

3. Frage
Wie oft wird die Kopfzeile aktualisiert?
Antwort: Die Kopfzeile wird aktualisiert, wenn du das Makro erneut ausführst oder beim Drucken des Dokuments.

Beliebteste Forumthreads (12 Monate)

Inhalte einer Zelle in der Kopfzeile ausgeben

Forumthread: Inhalte einer Zelle in der Kopfzeile ausgeben

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Inhalte einer Zelle in der Kopfzeile ausgeben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread