Windows Benutzername mit Excel VBA auslesen
Schritt-für-Schritt-Anleitung
Um den Windows-Benutzernamen mit Excel VBA auszulesen, kannst du die folgende Methode verwenden. Diese Methode funktioniert in den meisten Windows-Versionen, einschließlich Windows XP und Windows 10.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul aus.
-
Kopiere den folgenden Code in das Modul:
Sub UseName()
Dim UName As String
UName = Environ("USERNAME")
MsgBox UName
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle UseName und klicke auf Ausführen.
Der Benutzername wird in einem Popup-Fenster angezeigt.
Häufige Fehler und Lösungen
Alternative Methoden
Falls die Environ-Methode nicht funktioniert, kannst du die API-Funktion GetUserName verwenden. Hier ist ein Beispiel für die Implementierung:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub UserName()
Dim Buffer As String * 100
Dim Länge As Long
Länge = 100
GetUserName Buffer, Länge
MsgBox Left(Buffer, Länge - 1)
End Sub
Diese Methode ist besonders nützlich für ältere Windows-Versionen.
Praktische Beispiele
-
Benutzername in Zelle schreiben
Wenn du den Benutzernamen direkt in eine Zelle schreiben möchtest, kannst du den folgenden Code verwenden:
Sub WriteUserNameToCell()
Dim UName As String
UName = Environ("USERNAME")
ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = UName
End Sub
-
Benutzernamen mit Access
Wenn du mit Access arbeitest, kannst du den Benutzernamen ähnlich wie in Excel auslesen:
Dim UName As String
UName = Environ("USERNAME")
MsgBox UName
Tipps für Profis
- Nutze die
Environ-Funktion, um auch andere Umgebungsvariablen auszulesen, wie USERDOMAIN oder COMPUTERNAME.
- Halte deinen VBA-Code organisiert und kommentiere wichtige Abschnitte, um die Wartbarkeit zu erhöhen.
- Teste deinen Code in verschiedenen Windows-Versionen, um die Kompatibilität zu gewährleisten.
FAQ: Häufige Fragen
1. Funktioniert der Code auf Windows 10?
Ja, der Code funktioniert sowohl auf Windows 10 als auch auf älteren Versionen wie Windows XP.
2. Was mache ich, wenn der Benutzername nicht angezeigt wird?
Stelle sicher, dass die Umgebungsvariable USERNAME korrekt gesetzt ist. Du kannst dies überprüfen, indem du in der Eingabeaufforderung echo %USERNAME% eingibst.