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

Forumthread: Windows Username in Excel anzeigen

Windows Username in Excel anzeigen
24.04.2017 15:41:57
Marco
Hallo zusammen,
ich benötige eine Excelliste (siehe Anhang) bei dem der Windows Username nach jedem Öffnen der Excel Datei aktualisiert wird.
Windows Username habe ich über die Funktion Name, Benutzer, =DATEI.ZUORDNEN(36) erstelle und im Feld D4 =Benutzer eingebe erreicht.
Leider wird dieser Name nur einmalig erstellt - wenn mein Kollege die Datei öffnet, sollte sein Name dann in Zelle D4 erscheinen.
Kann mir hier jemand die Lösung erstellen, da ich in VBA keine bzw. wenig Erfahrung habe.
Zudem soll durch den Windows Username die Schreibberechtigung für die Spalten genehmigt bzw. gesperrt werden. Ist das möglich? Wenn User Marco sich anmeldet, soll er nur im Bereich Konstruktion (gelbe Spalten) schreiben dürfen und die anderen Spalten nicht bearbeitet werden.
Vielen Dank für die Hilfe.
Grüße
Marco
https://www.herber.de/bbs/user/113077.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Windows Username in Excel anzeigen
24.04.2017 15:58:00
UweD
Hallo
Muss in den Codebereich "DieseArbeitsmappe"
Private Sub Workbook_Open()
Sheets("Tabelle1").Range("D4") = Environ$("USERNAME")
End Sub
Beim öffnen (bei aktivierten Makros) wird der Name dann eingetragen.
Mehr brauchst du dann nicht.
LG UweD
Anzeige
AW: Windows Username in Excel anzeigen
24.04.2017 16:04:49
Marco
Hallo,
danke für die Info, so erhalte ich aber den Username von Office - ich würde gerne des Windows Username einfügen.
Danke für die Info.
Grüße
falsch..
24.04.2017 16:14:56
UweD
UserN = Application.UserName 'Excel
UserId = Environ("Username") 'Windows Anmeldename
COMPId = Environ("COMPUTERNAME") 'Rechnername
AW: falsch..
24.04.2017 16:28:41
Marco
Danke - funktioniert einwandfrei.
Kann mir noch jemand helfen mit den Berechtigungen, je nachdem wie der Anmeldename ist, darf nur in gewisse Spalten geschrieben werden, gibt es hierfür eine Lösung? Danke für die Hilfe.
Anzeige
offen für alle
24.04.2017 16:47:25
UweD
AW: offen für alle
24.04.2017 16:54:05
Nepumuk
Hallo,
im Register "Überprüfen" findest du ganz rechts eine Button "Benutzer dürfen Bereiche bearbeiten" damit kannst du das Ganze ohne VBA erreichen.
Gruß
Nepumuk
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Windows Username in Excel anzeigen


Schritt-für-Schritt-Anleitung

Um den Windows Username in Excel anzuzeigen und in einer bestimmten Zelle zu speichern, folge diesen Schritten:

  1. Öffne deine Excel-Datei und gehe zum Visual Basic for Applications (VBA) Editor, indem du ALT + F11 drückst.

  2. Im Projekt-Explorer wähle DieseArbeitsmappe.

  3. Füge den folgenden VBA-Code ein:

    Private Sub Workbook_Open()
        Sheets("Tabelle1").Range("D4") = Environ$("USERNAME")
    End Sub
  4. Schließe den VBA-Editor und speichere die Excel-Datei als Excel-Makro-fähige Datei (*.xlsm).

  5. Schließe und öffne die Datei erneut, um den Windows Username in Zelle D4 zu sehen.

Dieser Code verwendet Environ$("USERNAME"), um den aktuellen Windows Benutzer auszulesen und in die Zelle D4 einzufügen.


Häufige Fehler und Lösungen

  • Fehler: Benutzername wird nicht aktualisiert.

    • Stelle sicher, dass die Makros beim Öffnen der Datei aktiviert sind.
  • Fehler: Falscher Benutzername wird angezeigt.

    • Überprüfe, ob Environ$("USERNAME") korrekt eingegeben wurde und keine Leerzeichen enthalten sind.
  • Fehler: Zelle bleibt leer.

    • Stelle sicher, dass das Arbeitsblatt „Tabelle1“ existiert und die Zelle D4 korrekt referenziert wird.

Alternative Methoden

Wenn du den Windows Username ohne VBA auslesen möchtest, kannst du die folgende Excel-Formel verwenden:

=INFO("user")

Diese Formel gibt den Benutzernamen des aktuellen Excel-Users zurück, jedoch nicht den Windows Username. Für eine genauere Lösung ist VBA die bessere Wahl.


Praktische Beispiele

  1. Benutzername automatisch einfügen: Um den Benutzername in Zelle B1 einzufügen, kannst du den folgenden VBA-Code verwenden:

    Private Sub Workbook_Open()
        Sheets("Tabelle1").Range("B1") = Environ$("USERNAME")
    End Sub
  2. Berechtigungen basierend auf Benutzername: Um Schreibrechte basierend auf dem Benutzernamen zu steuern, kannst du Folgendes ergänzen:

    If Environ$("USERNAME") = "Marco" Then
        Sheets("Tabelle1").Range("A1:C10").Locked = False
    Else
        Sheets("Tabelle1").Range("A1:C10").Locked = True
    End If

Tipps für Profis

  • Nutze Application.Username, um den Excel User auszulesen, jedoch beachte, dass dies den Microsoft Office Benutzernamen und nicht den Windows Username zurückgibt.
  • Mit Workbook_BeforeClose kannst du den aktuellen Benutzername vor dem Schließen der Datei speichern, um die Datei später mit den gleichen Berechtigungen zu öffnen.

FAQ: Häufige Fragen

1. Wie kann ich den Windows Username in eine andere Zelle eintragen?
Du kannst einfach die Zellenreferenz im VBA-Code anpassen, z.B. Range("E5") statt Range("D4").

2. Funktioniert das auch in Excel Online?
Nein, die VBA-Funktionalität ist in Excel Online nicht verfügbar. Du benötigst eine Desktop-Version von Excel.

3. Kann ich einen bestimmten Benutzer auslesen und ihm Rechte geben?
Ja, du kannst die Benutzerüberprüfung im VBA-Code durchführen, um spezifische Schreibrechte zu gewähren oder zu entziehen.

4. Wie kann ich den Benutzernamen ohne Makros einfügen?
Du kannst die Formel =INFO("user") verwenden, um den aktuellen Excel-Benutzernamen anzuzeigen, jedoch ist dies nicht der Windows Username.

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