Tipps & Tricks
24.11.2009, 09:37 Uhr
Windows-Benutzername in Excel-Fusszeile
Problem: In meiner Excel-Arbeitsmappe habe ich in der Fusszeile links das Datum, in der Mitte die Seitenzahl und rechts den Dateinamen. Wie bekomme ich es hin, dass neben dem Datum ein Schrägstrich und dahinter mein Windows-Benutzername eingefügt wird?
Lösung: Das ist mit einem kleinen VBA-Script zu bewerkstelligen. Gestalten Sie zuerst Ihre Fusszeile wie gewohnt.
Gehen Sie nun in Excel 2007 zu den Entwicklertools und klicken auf Visual Basic. In älteren Excel-Versionen gehts zu Extras/Makro/Visual Basic Editor. Doppelklicken Sie im linken Teil auf «Diese Arbeitsmappe» und fügen Sie den folgenden Code ein, siehe auch Screenshot:
Information
Private Sub Workbook_BeforePrint(Cancel As Boolean)Dim strFooter as StringstrFooter = Split(ActiveSheet.Pagesetup.LeftFooter,"/")(0)ActiveSheet.PageSetup.LeftFooter = strFooter & " / " &Environ("USERNAME")End Sub
So sieht das im Editor aus:
Der Code im Visual-Basic-Editor
Speichern Sie die Datei; unter Excel 2007 müssen Sie sie als Dateityp «Excel-Arbeitsmappe mit Makros» (*.xlsm) speichern. Gehen Sie im VB-Editor zu Datei/Schliessen und zurück zu Microsoft Excel.
Die Fusszeile wurde mit dem Windows-Loginnamen ergänzt
Wenn Sie jetzt zu Office-Knopf/Drucken/Seitenansicht bzw. zu Datei/Seitenansicht gehen, entdecken Sie den Benutzernamen in der Fusszeile hinter dem Datum. (PCtipp-Forum)
Kommentare
Es sind keine Kommentare vorhanden.
