Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Username in Fußzeile

Username in Fußzeile
04.01.2005 08:53:39
Torsten
Hallo beisammen,
zunächst mal ein gutes und gesundes Neues Jahr allen fleißigen Helfern.
Meine Frage: Ist es möglich, in die Fußzeile eines Excelsheets den Usernamen abzubilden? Wenn ja, wie?
Vielen Dank für Eure Tips im voraus.
Gruß
Torsten
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Username in Fußzeile
Galenzo
Hallo,
teste mal dies:
Option Explicit
Private Declare

Function apiGetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long

Function fOSUserName() As String
Dim lLen As Long, lX As Long
Dim sUserName As String
sUserName = String$(254, 0)
lLen = 255
lX = apiGetUserName(sUserName, lLen)
If lX <> 0 Then
fOSUserName = Left$(sUserName, lLen - 1)
Else
fOSUserName = ""
End If
End Function


Sub Username2LeftFooter()
ActiveSheet.PageSetup.LeftFooter = fOSUserName
End Sub

Anzeige
AW: Username in Fußzeile
Torsten
Hallo Galenzo,
vielen Dank für Deine schnelle Rückmeldung.
Leider erhalte ich eine Fehlermeldung:
"Fehler beim Kompilieren. Erwartet: Sub oder Function"
Excel bleibt hinter "Private Declare" stehen. Kannst Du das noch mal prüfen?
Gruß
Torsten
PS: Geht's auch ohne VBA?
Anzeige
AW: Username in Fußzeile
Galenzo
Sorry, da hab ich wohl aus Versehen auf die ENTER-Taste gekloppt...
Private Declare Function apiGetUse.... kömmt in EINE Zeile!
AW: Username in Fußzeile
Torsten
Hallo Thomas,
besten Dank für Deinen Tip.
In der Liste findet sich zwar nicht der Username als BuiltinDocumentProperties, aber ich suche dann mal weiter.
Gruß
Torsten
AW: Username in Fußzeile
UweD
Hallo
Das macht ja nur Sinn auf einem Ausdruck.
Deshalb das BeforePrint Ereignis nutzen:
Hier 3 Beispiele für Username, Computername und ExcelNutzer

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen



Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Der Anmeldename am Netzwerk
ActiveWorkbook.ActiveSheet.PageSetup.LeftFooter = Environ("UserName")
' Der Computername
ActiveWorkbook.ActiveSheet.PageSetup.CenterFooter = Environ("ComputerName")
' Der Name der in Excel eingetragen ist
ActiveWorkbook.ActiveSheet.PageSetup.RightFooter = Application.UserName
End Sub

Anzeige
AW: erledigt - mT
Torsten
Hallo Uwe,
prima! Genau das, was ich gesucht habe.
Vielen Dank für Deine Hilfe.
Gruß
Torsten
;
Anzeige
Anzeige

Infobox / Tutorial

Username in der Fußzeile von Excel anzeigen


Schritt-für-Schritt-Anleitung

Um den Username in der Fußzeile eines Excel-Dokuments anzuzeigen, kannst Du VBA verwenden. Hier sind die Schritte, die Du befolgen solltest:

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Project Explorer mit der rechten Maustaste auf "DieseArbeitsmappe" und wähle "Einfügen" > "Modul".

  3. Füge den folgenden Code in das Modul ein:

    Private Declare Function apiGetUserName Lib "advapi32.dll" _
    Alias "GetUserNameA" (ByVal lpBuffer As String, _
    nSize As Long) As Long
    
    Function fOSUserName() As String
       Dim lLen As Long, lX As Long
       Dim sUserName As String
       sUserName = String$(254, 0)
       lLen = 255
       lX = apiGetUserName(sUserName, lLen)
       If lX <> 0 Then
           fOSUserName = Left$(sUserName, lLen - 1)
       Else
           fOSUserName = ""
       End If
    End Function
    
    Sub Username2LeftFooter()
       ActiveSheet.PageSetup.LeftFooter = fOSUserName
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro Username2LeftFooter aus, um den Username in der Fußzeile zu setzen.


Häufige Fehler und Lösungen

  • Fehler beim Kompilieren. Erwartet: Sub oder Function:

    • Stelle sicher, dass der Private Declare Befehl in einer einzigen Zeile steht. Es darf kein Zeilenumbruch dazwischen sein.
  • Makro funktioniert nicht:

    • Überprüfe, ob Du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > ActiveX- und Makroeinstellungen und stelle sicher, dass die Makros aktiviert sind.

Alternative Methoden

Falls Du VBA nicht verwenden möchtest, gibt es auch eine Möglichkeit, den Benutzernamen ohne Programmierung in die Fußzeile einzufügen:

  1. Klicke auf Einfügen.
  2. Wähle Kopf- und Fußzeile.
  3. Klicke auf Benutzerdefinierte Fußzeile.
  4. Füge den Text manuell ein, wenn Du den Benutzernamen kennst. Diese Methode ist jedoch nicht dynamisch.

Praktische Beispiele

Hier sind einige Beispiele, wie Du unterschiedliche Informationen in der Fußzeile anzeigen kannst:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ' Der Anmeldename am Netzwerk
    ActiveWorkbook.ActiveSheet.PageSetup.LeftFooter = Environ("UserName")
    ' Der Computername
    ActiveWorkbook.ActiveSheet.PageSetup.CenterFooter = Environ("ComputerName")
    ' Der Name, der in Excel eingetragen ist
    ActiveWorkbook.ActiveSheet.PageSetup.RightFooter = Application.UserName
End Sub

Mit diesem Code kannst Du sowohl den Username, den Computername als auch den in Excel eingetragenen Namen in die Fußzeilen der Seiten einfügen.


Tipps für Profis

  • Nutze das Workbook_BeforePrint Ereignis, um die Fußzeilen dynamisch zu setzen, bevor Du ein Dokument druckst.
  • Teste den VBA-Code in einer Kopie Deiner Datei, um unbeabsichtigte Veränderungen zu vermeiden.
  • Informiere Dich über die verschiedenen Möglichkeiten von VBA, um Deine Excel-Dokumente weiter zu automatisieren.

FAQ: Häufige Fragen

1. Was bedeutet username in Excel?
Der Username in Excel bezieht sich auf den Anmeldenamen, den Du für Dein Benutzerkonto auf dem Computer oder im Netzwerk verwendest.

2. Kann ich den Username auch in anderen Bereichen von Excel nutzen?
Ja, Du kannst den Username in verschiedenen Bereichen verwenden, wie zum Beispiel in Textfeldern, Überschriften oder in Berechnungen.

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