Supportnet / Forum / Tabellenkalkulation
Anmelde- und/oder Benutzername
Frage
Hi!
Kann man mit einer Formel den Anmelde- und/oder Benutername auslesen, oder ist dies nur mit VBA möglich?
Grund:
Ein Tabellenblatt (Excel2000) wird ausgedruckt und in einer bestimmten Zelle soll der Name des Users stehen.
Manchmal ist es schwierig einen Ausdruck einem bestimmten Benutzer zuzuweisen.
Vielleicht hat jemand einen Vorschlag.
Tom
Antwort 1 von ChatAlligator
Erstelle unter VBA ein Modul, in dem Du folgende Funktion einträgst:
Function Benutzername() As String
Benutzername = Application.UserName
End Function
Darauf hin steht dir auch in allen Tabellenblättern diese Funktion zur Verfügung, so dass in einer beliebigen Zelle folgendes eingetragen werden kann:
=Benutzername()
Dann wird dir der Name, den das Betriebssystem auf dem Benutzerkonto gespeichert hat darin angezeigt.
Gruß CA
Function Benutzername() As String
Benutzername = Application.UserName
End Function
Darauf hin steht dir auch in allen Tabellenblättern diese Funktion zur Verfügung, so dass in einer beliebigen Zelle folgendes eingetragen werden kann:
=Benutzername()
Dann wird dir der Name, den das Betriebssystem auf dem Benutzerkonto gespeichert hat darin angezeigt.
Gruß CA
Antwort 2 von Pistenschreck
Hallo Tom
Im Gegensatz zu Application.UserName, den jeder unter Extras-Optionen selber umbennen kann, ist ev. besser: Environ("Username"), das ist der Anmeldename am Server.
Im Prjektexplorer - Diese Arbeitsmappe fogenden Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Environ("Username")
End Sub
Dieser schreibt in die rechte Fusszeile den Anmeldenamen.
Gruss Werner
Im Gegensatz zu Application.UserName, den jeder unter Extras-Optionen selber umbennen kann, ist ev. besser: Environ("Username"), das ist der Anmeldename am Server.
Im Prjektexplorer - Diese Arbeitsmappe fogenden Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Environ("Username")
End Sub
Dieser schreibt in die rechte Fusszeile den Anmeldenamen.
Gruss Werner
Antwort 3 von Beverly
Hi Tom,
das geht auch ohne VBA. Schau mal unter diesem Link zu Excel-Formeln. Ist übrigens die beste Seite im Internet, wenn es um Formln geht.
Bis später,
Karin
das geht auch ohne VBA. Schau mal unter diesem Link zu Excel-Formeln. Ist übrigens die beste Seite im Internet, wenn es um Formln geht.
Bis später,
Karin
Antwort 4 von Beverly
Hi Tom,
ich habe gerade festgestellt, dass der Link nicht funktioniert, obwohl ich ihn in der Vorschau getestet hatte. Ich versuche es noch einmal
Link zu Excel-Formeln
Bis später,
Karin
ich habe gerade festgestellt, dass der Link nicht funktioniert, obwohl ich ihn in der Vorschau getestet hatte. Ich versuche es noch einmal
Link zu Excel-Formeln
Bis später,
Karin
Antwort 5 von Tomschi
Guten Morgen!
Danke für die Ratschläge.
AW1 und AW3/4 liefern nur zum Teil das von mir gewünschte Ergebnis.
Irgendwie aktualisieren sich die Benutzernamen nicht bei einem "Benutzerwechsel". F9 = Fehlanzeige
Zu AW2:
Werner hat Recht, dass man den Application.UserName umbennen kann, jedoch benötige ich den Namen individuell in einer Tabelle und nicht in der Fusszeile.
Daher die Frage, wie ich den Code umgestalten muss, um dies zu erhalten.
Ist unter "Anmeldename" der Name des PC-Profils gemeint, oder der Netzwerkname?
Tom
Danke für die Ratschläge.
AW1 und AW3/4 liefern nur zum Teil das von mir gewünschte Ergebnis.
Irgendwie aktualisieren sich die Benutzernamen nicht bei einem "Benutzerwechsel". F9 = Fehlanzeige
Zu AW2:
Werner hat Recht, dass man den Application.UserName umbennen kann, jedoch benötige ich den Namen individuell in einer Tabelle und nicht in der Fusszeile.
Daher die Frage, wie ich den Code umgestalten muss, um dies zu erhalten.
Ist unter "Anmeldename" der Name des PC-Profils gemeint, oder der Netzwerkname?
Tom
Antwort 6 von Pistenschreck
Hallo Tom
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Environ("Username")
End Sub
oder
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Application.UserName
End Sub
Das wirkrt sich aber auf alle Tabellenblätter in dieser Arbeitsmappe aus. Wenn z.B. nur Tabelle2 den Namen haben muss, dann :
Sheets("Tabelle2").Range("A1")=Application.UserName
Gruss Werner
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Environ("Username")
End Sub
oder
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Application.UserName
End Sub
Das wirkrt sich aber auf alle Tabellenblätter in dieser Arbeitsmappe aus. Wenn z.B. nur Tabelle2 den Namen haben muss, dann :
Sheets("Tabelle2").Range("A1")=Application.UserName
Gruss Werner
Antwort 7 von Tomschi
Guten Morgen!
Kann man neben dem Excel-Benutzername und dem Windows-Profil auch den (Novell)-Netzwerknamen auslesen?
Thanx
Tom
Kann man neben dem Excel-Benutzername und dem Windows-Profil auch den (Novell)-Netzwerknamen auslesen?
Thanx
Tom