Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblattname als rechte Fußzeile

Forumthread: Tabellenblattname als rechte Fußzeile

Tabellenblattname als rechte Fußzeile
26.11.2019 14:56:05
Tobias

Hallo,
der dynamisch innerhalb eines Makros erzeugte Tabellenblattname soll (innerhalb desselben Makros) als rechte Fußzeile beim Drucken festgelegt werden – das ginge z.B. so:
ActiveSheet.PageSetup.RightFooter = ActiveSheet.Name
Nun soll aber NACH dem Makro-Durchlauf prinzipiell die Möglichkeit bestehen, den Namen des Tabellenblatts manuell umzubenennen und diese Umbenennung soll sich dann automatisch (ohne weiteres Makro) beim Drucken in der Fußzeile niederschlagen.
Im Seite-Einrichten-Dialogfenster wäre das außerhalb eines Makros manuell möglich über Blattname einfügen:
&[Register]
Daraufhin aktualisiert sich die Fußzeile automatisch wenn sich der Blattname ändert.
Leider funktioniert das aufs Makro übertragen nicht:
ActiveSheet.PageSetup.RightFooter = &[Register]
Hat jemand eine Idee?
Schöne Grüße,
Tobias
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblattname als rechte Fußzeile
26.11.2019 15:04:48
peterk
Hallo

ActiveSheet.PageSetup.RightFooter = "&A"

AW: Tabellenblattname als rechte Fußzeile
26.11.2019 15:36:19
Tobias
Super! Vielen Dank, Tobias
;
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblattname als rechte Fußzeile in Excel


Schritt-für-Schritt-Anleitung

Um den Namen eines Tabellenblatts als rechte Fußzeile beim Drucken festzulegen, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Makro:

    • Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Füge den folgenden Code ein:

    Sub FußzeileMitTabellenblattname()
       ActiveSheet.PageSetup.RightFooter = ActiveSheet.Name
    End Sub
    • Dieser Code setzt den aktuellen Tabellenblattnamen als rechte Fußzeile.
  4. Führe das Makro aus:

    • Schließe den VBA-Editor und drücke ALT + F8, wähle das Makro aus und klicke auf Ausführen.
  5. Manuelle Umbenennung:

    • Du kannst den Namen des Tabellenblatts manuell ändern. Um sicherzustellen, dass sich die Fußzeile automatisch aktualisiert, musst du den folgenden Code verwenden:
      ActiveSheet.PageSetup.RightFooter = "&[Tabellenblattname]"

Häufige Fehler und Lösungen

  • Fehler: Die Fußzeile aktualisiert sich nicht nach der Umbenennung.

    • Lösung: Stelle sicher, dass du den richtigen VBA-Code verwendest, um den Blattnamen als Fußzeile zu setzen. Nutze ActiveSheet.PageSetup.RightFooter = "&[Tabellenblattname]".
  • Fehler: Beim Drucken erscheint nicht der erwartete Text in der Fußzeile.

    • Lösung: Überprüfe die Seite-Einrichten-Einstellungen und stelle sicher, dass der Text korrekt eingegeben wurde.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, gibt es auch Alternativen:

  1. Manuelle Einstellung über die Benutzeroberfläche:

    • Gehe zu Seitenlayout > Seite einrichten > Kopf- und Fußzeile.
    • Wähle Benutzerdefinierte Fußzeile und füge &[Tabellenblattname] in das rechte Feld ein.
  2. Verwendung von Formeln:

    • Du kannst den Blattnamen in einer Zelle anzeigen und dann auf diese Zelle in der Fußzeile verweisen. Diese Methode erfordert jedoch zusätzliche Schritte und ist weniger dynamisch.

Praktische Beispiele

Hier sind einige nützliche VBA-Beispiele zur Verwendung des Blattnamens in der Fußzeile:

  • Beispiel 1: Fügt das Erstellungsdatum des Dokuments hinzu.

    ActiveSheet.PageSetup.RightFooter = ActiveSheet.Name & " - " & Date
  • Beispiel 2: Fügt den Benutzernamen hinzu.

    ActiveSheet.PageSetup.RightFooter = ActiveSheet.Name & " - " & Application.UserName

Tipps für Profis

  • Verwende Variablen: Um deinen Code flexibler zu gestalten, kannst du Variablen für den Blattnamen und andere Informationen verwenden.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um unvorhergesehene Probleme zu vermeiden.

  • Dokumentation: Kommentiere deinen Code, damit du und andere Benutzer später verstehen, was jeder Abschnitt bewirken soll.


FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, damit die Fußzeile auch beim Drucken aktualisiert wird? Du musst sicherstellen, dass du den Code ActiveSheet.PageSetup.RightFooter = "&[Tabellenblattname]" verwendest, um die automatische Aktualisierung der Fußzeile zu gewährleisten.

2. Funktioniert dies in allen Excel-Versionen? Ja, die beschriebenen Methoden sind in den meisten modernen Excel-Versionen, wie Excel 2016 und Excel 365, anwendbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige