Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Environ("Username")

Forumthread: VBA: Environ("Username")

VBA: Environ("Username")
Torsten
Hallo beisammen,
mit dem folgenden Code möchte ich beim Öffnen einer Datei einen cmb_Button usergesteuert ein- bzw. ausblenden:
With Worksheets("START")
Select Case Environ("Username")
Case "28745", "28494", "28747", "32278"
.Shapes("cmb_ENTRY").Visible = True
Case Else
.Shapes("cmb_ENTRY").Visible = False
End Select
End With
Das funktioniert auch, ich möchte allerdings die User nicht im Code pflegen müssen, sondern z.B. in einem Sheets("SETT").Range("B15") bis .Range("B19").
Ich habe versuchsweise den Code geändert:
With Worksheets("START")
Select Case Environ("Username")
Case Sheets("SETT").Range("B15"), Sheets("SETT").Range("B16")
.Shapes("cmb_ENTRY").Visible = True
.....
Das hat jedoch nicht funktioniert. Wie muß ich den Code anpssen?
Besten Dank für Eure Hilfe.
Gruß
Torsten
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA: Environ("Username")
08.05.2012 15:23:00
Rudi
Hallo,
Worksheets("Start").Shapes("cmb_entry").Visible = _
Not IsError(Application.Match(Environ("username"), Sheets("Sett").Range("B15:B19"), 0))
Gruß
Rudi
AW: VBA: Environ("Username")
08.05.2012 15:43:34
Torsten
Hallo Rudi,
vielen Dank für die prompte Rückmeldung.
Leider wird der cmb_Button ausgeblendet, obwohl ich selbst auch in der Berechtigtenliste stehe.
Habe ich einen Fehler gemacht:
With Worksheets("START")
.Shapes("cmb_ENTRY").Visible = _
Not IsError(Application.Match(Environ("Username"), Sheets("SETT").Range("B15:B22"), 0))
End With
oder habe die Ausgangslage schlecht beschrieben?
Wäre nett, wenn Du nochmal schauen könntest.
Vielen Dank und
Gruß
Torsten
Anzeige
funktioniert
08.05.2012 15:52:40
Rudi
Hallo,
Name falsch oder nicht im Bereich?
Gruß
Rudi
AW: funktioniert
09.05.2012 11:28:58
Torsten
Hallo Rudi,
tja, dann weiß ich's nicht. Username stimmt, abgefragter Bereich (Range("B15") stimmt -
nur das Ergebnis nicht - über den Code wird das Shape nach wie vor aus- statt eingeblendet.
Falls noch jemand eine Idee hat....
Gruß
Torsten
Anzeige
Datentyp
09.05.2012 11:55:43
Marc
Hallo!
Deine Usernamen sind Zahlen, bei Environ weiß ich es nicht. Prüf das mal nach.
Möglicherweise musst du die User in den Zellen erst in Strings wandeln / formatieren.
Gruß, MCO
AW: Datentyp
09.05.2012 12:02:12
Torsten
Hi Marc,
oje.... hast Du mein Level gesehen? VBA bescheiden.
Wie setz ich denn Deine Idee in VBA um?
Vorab schon mal besten Dank.
Gruß
Torsten
Anzeige
AW: Datentyp
09.05.2012 13:05:36
Marc
Geh mal schrittweise deinen Code durch (mit F8).
Wenn du über eine belegte Variable mit der Maus drüberhergehst, dann wird der aktuelle Wert angezeigt.
Also entweder "12345" für einen Textstring oder 12345 für einen Wert.
Du kannst die einzelnen Variablen auch der Überwachung hinzufügen (über Kontext), dann sind noch mehr Informationen zugänglich.
was in was wie umgewandelt wird steht deutlich in der VBA-Hilfe unter Typ-Umwandlungsfunktionen
Es geht aber auch direkter, indem man beispielsweise den string einer Zahl multipliziert (also "500" * 1), das Ergebnis wäre dann ein Wert.
Viel Erfolg
Gruß, MCO
Anzeige
AW: Datentyp
09.05.2012 13:12:52
Rudi
Hallo,
der Hinweis auf die Zahlen ist gut.
Um sowohl Zahlen als auch Strings abzufangen:
Worksheets("Start").Shapes("cmb_entry").Visible = _
Not IsError(Application.Match(IIf(IsNumeric(Environ("username")), _
Environ("username") * 1, Environ("username")), Sheets("Sett").Range("B15:B19"), 0))
Gruß
Rudi
Anzeige
erledigt: VBA: Environ("Username")
09.05.2012 13:36:08
Torsten
Hallo Rudi und Marc,
jetzt funktioniert's:
With Worksheets("START")
.Shapes("cmb_ENTRY").Visible = _
Not IsError(Application.Match(IIf(IsNumeric(Environ("Username")), _
Environ("Username") * 1, Environ("Username")), Sheets("SETT").Range("B15:B22"), 0))
End With
Vielen Dank Euch beiden für Eure Unterstützung und Geduld!
Gruß
Torsten
Anzeige
;

Forumthreads zu verwandten Themen

VBA-Sverweis mit UserName
Alex

Hi,
mit diesem Code-Teil wird der User, welcher in meiner Datei etwas verändert verewigt. :-)
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & "...
05.02.2009 12:47:52
Thread-ID: 1047363
8 Beiträge
Environ("username") nur einmalig eintragen | Herbers Excel-Forum
Markus
Hallo Forum,
mit folgendem Makro lasse ich das Kürzel Anwenders in das Arbeitsblatt eintragen:
Private Sub Workbook_Open() Sheets("Datenbank").Range("AI2") = Environ("username") End Sub Jetzt möchte ich, dass nur das Kürzel des Erstanwenders eingetragen wird. Wenn andere Anwender das Arbei...
28.01.2010 12:31:14
Thread-ID: 1133708
3 Beiträge
Problem mit "Environ("USERNAME")" in Excel 2003
Kai

Hallo zusammen,
super Forum hier, die Beiträge waren schon sehr oft hilfreich bei meine Einstiegsversuchen in VBA.
Ich wende mich nun mit einer Frage an euch Experten.
Ich habe mir ein kleines Tool gebaut, dass unter anderem beim starten der Mappe den aktuell angemeldeten Benutzer a...
30.09.2013 11:11:30
Thread-ID: 1332622
9 Beiträge
Environ("Username") +Zusatz
Wolfgang

Hallo*
mit untenstehendem -auszugsweisen- Code werden Daten aus einer Textdatei unter dem angegebenen Pfad in eine Exceltabelle importiert. Im Rahmen eines Netzwerkes liegt die Datei auf jeden Rechner unter C: und Username; Nun kann es neuerdings passieren, dass der Username noch einen Zusa...
05.10.2006 20:58:19
Thread-ID: 808243
6 Beiträge
via VBA nach Datum und Username suchen
Lars

Hallo Zusammen,
ich habe schon vieles durch das Forum gelernt und selbst kleine VBA-Codes generiert. Jetzt komme ich aber leider nicht mehr weiter und ich habe auch keinen Eintrag gefunden der mir helfen könnte.
Ich habe eine Tabelle in der ich per Knopf - das heutige Datum, Username un...
28.04.2020 17:36:42
Thread-ID: 1755464
4 Beiträge
Freigabe über Environ("Username")
Zulu
Hallo zusammen,
ich stehe aktuell bei einem Makro auf dem Schlauch und benötige eure Hilfe.
Ich habe eine Excel in welcher verschiedene Tabellenblätter ausgeblendet sind. Mittels UserForm kann der Nutzer den Namen eines Tabellenblatts auswählen welches er einblenden möchte. Ob er dazu berec...
22.12.2022 09:09:23
Thread-ID: 1912569
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Mit VBA Environ("Username") arbeiten in Excel

Schritt-für-Schritt-Anleitung

Um den Environ("Username") in VBA zu verwenden, gehe wie folgt vor:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf einen Eintrag im Projektfenster und wähle Einfügen > Modul.

  3. Code einfügen:

    • Verwende den folgenden Code, um den Button basierend auf dem Benutzernamen ein- oder auszublenden:
    Sub ToggleButtonVisibility()
   With Worksheets("START")
       .Shapes("cmb_ENTRY").Visible = _
       Not IsError(Application.Match(Environ("Username"), Sheets("SETT").Range("B15:B19"), 0))
   End With
End Sub

  4. Ausführen:

    • Führe das Makro aus, um zu testen, ob der Button korrekt angezeigt wird.

Häufige Fehler und Lösungen

  • Fehler: Environ("Username") not working:

    • Stelle sicher, dass der Benutzername im Range korrekt eingetragen ist. Überprüfe die Schreibweise und das Format. Beispielsweise können numerische Benutzernamen als Strings behandelt werden.

  • Fehler: Button wird nicht sichtbar:

    • Überprüfe die Range, die du in Application.Match verwendest. Stelle sicher, dass die Zellen in "SETT" die richtigen Werte enthalten.

Alternative Methoden

Wenn Environ("Username") nicht das gewünschte Ergebnis liefert, kannst du alternative Methoden in Betracht ziehen:

  • Verwendung von Application.UserName:

    • Anstelle von Environ("Username") kannst du auch Application.UserName verwenden, um den aktuell angemeldeten Benutzer zu ermitteln.
    .Shapes("cmb_ENTRY").Visible = _
Not IsError(Application.Match(Application.UserName, Sheets("SETT").Range("B15:B19"), 0))

  • Benutzerdefinierte Formeln:

    • Erstelle eine benutzerdefinierte Funktion, um den Benutzernamen abzurufen und zu verarbeiten.

Praktische Beispiele

Hier sind einige Beispiele, die dir helfen können, Environ("Username") effektiv zu nutzen:

  1. Ein- und Ausblenden von Schaltflächen:

    Sub ToggleButton()
   Dim userName As String
   userName = Environ("Username")

   If userName = "admin" Then
       Worksheets("START").Shapes("cmb_ENTRY").Visible = True
   Else
       Worksheets("START").Shapes("cmb_ENTRY").Visible = False
   End If
End Sub

  2. Benutzerrechte prüfen:

    Sub CheckUserRights()
   If Not IsError(Application.Match(Environ("Username"), Sheets("SETT").Range("B15:B19"), 0)) Then
       MsgBox "Zugriff gewährt!"
   Else
       MsgBox "Zugriff verweigert!"
   End If
End Sub

Tipps für Profis

  • Debugging nutzen:

    • Verwende die F8-Taste, um deinen Code schrittweise zu durchlaufen und Variablenwerte zu überprüfen.

  • Typ-Umwandlungen:

    • Vergewissere dich, dass die Daten in den Zellen den richtigen Datentyp haben. Du kannst numerische Werte in Strings umwandeln, indem du sie mit 1 multiplizierst.

  • Fehlerbehandlung:

    • Implementiere Fehlerbehandlung in deinen VBA-Skripten, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Environ("Username") und Application.UserName? Environ("Username") gibt den Windows-Benutzernamen zurück, während Application.UserName den in Excel eingestellten Benutzernamen zurückgibt.

2. Warum funktioniert mein Code nicht, obwohl der Benutzername korrekt ist? Überprüfe, ob die Benutzer in der Range als Strings formatiert sind und ob die Schreibweise übereinstimmt.

3. Wie kann ich mehrere Benutzernamen in einer Liste prüfen? Verwende Application.Match in Kombination mit einer Range, um zu prüfen, ob der Benutzername in der Liste vorhanden ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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