Deutsches Excel zeichnet Schrott auf beim Makro aufzeichnen von Kopf- und/oder Fusszeile

Hoppla. Da will ich doch mal schnell zeigen, wie einfach man ein Makro aufzeichnen kann, das Kopf- und Fusszeile automatisch beschriftet und dann kommt nur Schrott raus? Das Makro schreibt zwar irgendwas rein, aber überhaupt nicht das, was aufgezeichnet wurde.

Nach einiger Recherche fand ich die Lösung: Microsoft hat gepatzt. Aufgezeichnet werden die englischen Kürzel. Verwendet werden müssen aber die deutschen. Zumindest wenn man ein deutsches Excel hat, was ziemlich viele von uns haben dürften. Ganz blöd ist, dass die englischen und deutschen Kürzel verschiedene Bedeutung haben, was das Chaos verursacht.

Der folgende Code (Vielen Dank an rogstar aus dem Forum von Office-Lösungen…)

    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "&Z" & Chr(10) & "&F"
        .CenterFooter = "Seite &P von &N"
        .RightFooter = "Druck: &D-&T"
    End With

…erzeugt…

  • Links: Laufwerk, Pfad, Zeilenumbruch und Dateiname (bzw. die tatsächlichen Werte)
  • Mitte: Seite 1 von 1 (bzw. die tatsächlichen Werte)
  • Rechts: Druck: Datum – Uhrzeit

Daraus lässt sich eine Tabelle erstellen mit den zu verwendenden Werten:

&A Dateiname
&Z Pfad der Excel-Datei
&F Dateiname der Excel-Datei
&P Aktuelle Seite der Excel-Tabelle
&N Gesanmtseitenzahl der Excel-Tabelle
&D Aktuelles Datum
&T Aktuelle Uhrzeit

Sollen wir testen, ob es funktioniert? Lass uns das folgende Makro probieren:

Sub Varcheck()
    With ActiveSheet.PageSetup
        .BottomMargin = Application.InchesToPoints(3.1496062992126)
        .LeftFooter = "Dateiname: &A" & Chr(10) & "Pfad: &Z" & Chr(10) & "Dateiname: &F" & Chr(10) & "Seite: &P" & Chr(10) & "Gesamtseitenzahl: &N" & Chr(10) & "Datum: &D" & Chr(10) & "Uhrzeit: &T"
    End With
End Sub

Die LeftFooter-Anweisung schreibt eine Fusszeile, die alle Variablen aus der Tabelle mit Zeilenumbrüchen getrennt in die Fusszeile schreibt. Damit diese riesige Fusszeile genügend Platz hat, wird mit der BottomMargin-Anweisung ein gross genuger Fussabstand gesetzt.

Fazit: Makro für Kopf- oder Fusszeile aufzeichnen in Excel

Ohne rudimentäre VBA (Visual Basic for Application) Kenntnisse geht nichts. Zumindest bei den Kopf- und Fusszeilen. Du solltest wissen, wie Du ein Makro bearbeiten kannst.

Bestseller Nr. 1
BlitzWolf Bluetooth Selfie Stick Stativ, 3 in 1 Erweiterbar Monopod Wireless Selfie-Stange Stab 360° Rotation mit Bluetooth-Fernauslöse für Android Samsung Galaxy 3.5-6 Zoll Smartphones(Schwarz)
  • 【SELFIE STICK STATIV MIT ABZIEHBAR REMOTE】-- 2 in 1 Selfie Stick mit eingebaute Fernbedienung (max: 10m). Sie können Selbstfotografie machen, oder den Controller zu trennen, um Gruppenfotos zu erfassen und aufzeichnen, wie Partys, Hochzeit, Reisen (Tipps: Die Fernbedienung ist an den Selfie Stick angeschlossen statt unabhängig.) (Es ist mit Samsung Galaxy S5/S5 Mini kompatible nicht.)
  • 【RUTSCHFESTE FUSSMATTE & ALUMINIUMLEGIERUNG & 65mAh LITHIUMBATTERIE】-- Stativ aus Aluminiumlegierung mit rutschfester Fussmatte kann vermeiden, dass die Stativbeine nicht rutschen, sodass das Stativ stabiler ist. Interne 65mAh Lithium-Batterie kann bis zu 50000 selfies nach vollem Aufladung innerhalb von 30 - 45 Minuten aufnehmen, kann das Selfie Stick Stativ für 24 Stunden in Betrieb halten, und bis zu 3 Monate im Standby-Modus halten. Lebensdauer: 50000 Stunden.
  • 【EINSTELLBARER WINKEL & ROTABLE TELEFONHALTER】-- Drei Methode der Drehe von Selfie-swählen-203° Drehkopf mit verstellbarem Knopf + 360° drehbarer Telefonhalter. Und Sie können ihn drehen und einen horizontalen oder vertikalen Kameramodus auswählen, um die besten Winkelfotos zu erhalten. (Bitte schrauben Sie die Enge des Knopfes, um zu verhindern, dass das Telefon herunterfällt.)
  • 【19.9CM GEFALTETE GRÖSSE UND BIS ZU 67.9CM EXTENSION LÄNGE】-- 148g Gewicht, 19.9cm gefaltete Größe. Mit ausziehbarer Länge zwischen 27.5-67.9cm können Sie eine kurze Länge für intime Aufnahmen verwenden oder eine längere Länge verwenden, um eine größere Landschaft zu bekommen. Selfie Stick Stativ passt meisten 3,5-6 Zoll iOS & Android-Gerät und Sie müssen nicht extra APP herunterladen.
  • 【LIFETIME QUALITÄT PFLEGE】-- Mit bequemer ABS und PC-Material Griff und Aluminiumlegierung Welle ist diese Selfiestick nicht nur leicht, sondern auch korrosionsbeständig und starke. BlitzWolf leistet 18 Monats Garantie und lange professionellen Unterstützung, um Ihren langfristigen Genuss zu gewährleisten.
AngebotBestseller Nr. 2
Anker Selfie Stick, Verstellbare Selfie-Stange, ohne Akku, mit Kabel, für iPhone 6s / 6 / 5, Galaxy, Nexus und viele mehr, in Schwarz
  • DAS ANKER PLUS: Schließe dich den über 20 Millionen glücklichen Kunden an!
  • EINSTECKEN UND LOSLEGEN: Selfies waren noch nie so einfach! Einfach das Kabel in den Audio-Port deines Handys einstecken und Fotos schießen! Funktioniert ohne Bluetooth und ohne Aufladen.
  • ANPASSUNGSFÄHIG: Dein Arm reicht vielleicht keine 80 cm weit, aber dieser Selfie-Stick schon! Der ausziehbare Stick und die flexible Handy-Halterung schenken dir Schnappschüsse aus den besten Winkeln!
  • KOMPAKTES DESIGN: Verstaue den Selfie-Stick einfach in deiner Tasche. Mit einem Gewicht von 136 g und einer Länge von 18 cm (eingezogen) ist dieser Stab der perfekte Partner für deine Selfies!
  • PASST SICH ALLEN GRÖßEN AN: Mit fast allen Handys, wie iPhones oder Android Modellen, zwischen 2.2 und 3.3 Zoll kompatibel!

Das könnte dich auch interessieren:

Kommentar hinterlassen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.