If Environ("username") <> "VoG" Then ... zeigt immer "richti

31.12.2025 21:23:43

Lutz

Hallo,

folgender im Internet gefundener Code zeigt mir immer MsgBox "richtig" an, egal welcher username drin steht:

Sub a()
If Environ("username") > "VoG" Then
MsgBox "richtig"
Exit Sub
Else
MsgBox "falsch"
Exit Sub
End If
End Sub

Wenn mir jemand weiterhelfen könnte, besten Dank.

Gruß Lutz

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 00:27:39

JoWE

Lutz,
gib' doch mal VoG ein, das hast Du noch nicht probiert?
Gruß und gleich noch n' frohes Neues Jahr
Jochen

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 09:29:38

RPP63

Moin und ein frohes Neues!
Was ergibt denn MsgBox Environ("username")?
Ich schätze mal, dass es nicht VoG ist.

Und ein Hinweis zur Internet-Fundstelle:
Exit Sub ist hier sinnlos.
If → Then → Else → End If
kann man zwar machen.
Aber da es hier ja nur um wahr oder falsch geht, reicht hier

Sub a()

  MsgBox Environ("username") > "VoG"

End Sub

Gruß Ralf

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 10:03:36

GerdL

Hallo Lutz!

Spontan fällt mir zum Testen ein:

Sub Unit()



Debug.Print Environ("username")

MsgBox Environ("username")

Debug.Print Application.UserName

MsgBox Application.UserName



End Sub

Die Ausgabe erfolgt im Direktfenster und in der Messagebox.

Allen wünsche ich ein gutes Neues.
Gerd

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 19:34:46

Marc

groß/Kleinschreibung?

vielleicht mit LCASE(Environ("username") ) > "vog" testen

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 11:01:56

Lutz

Moin und ein gesundes Neues!

ich liege hoffentlich schon mal richtig, "VoG" (so fand ich es im Internet) durch meinen richtigen Computernamen zu ersetzen.
Im System steht bei mir xy-PC (die ersten beiden Buchstaben lauten anders).

Gerds Code zeigt mir aber nur xy an:

Sub Unit()

Debug.Print Environ("username")
MsgBox Environ("username")
Debug.Print Application.UserName
MsgBox Application.UserName

End Sub

Egal, wie ich "VoG" ersetze und ob mit oder ohne "". Es kommt Murks raus.

Wieso offen?

01.01.2026 12:26:39

RPP63

Wieso hast Du den Thread auf "offen" gestellt?
Du kennst doch jetzt "Deinen" Environ("username")
Dann prüfe auf den Dir bekannten Namen (in "") und gut ist's.

Gruß Ralf

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 12:36:32

JoWE

Hallo Lutz,
habe dass mal anhand Deines Makros etwas ausformuliert:

Sub a()

  If Environ("username") > "VoG" Then

    MsgBox "- RICHTIG! - Username ist nicht 'VoG' also ungleich (>) und demzufolge ist das richtig"

  Else

    MsgBox "- FALSCH - Username ist 'VoG' also gleich (=) und demzufolge ist 'falsch' hier richtig"

  End If

End Sub

VG
Jochen

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 13:15:44

Lutz

Hallo Jochen,
schreibe ich meinen username statt "VoG" kommt trotzdem: MsgBox "- RICHTIG! - Username ist nicht 'VoG' also ungleich (>) und demzufolge ist das richtig", also dass der username ungleich ist, obwohl er gleich ist.

Da ich nun das Erstbeste genommen habe, was ich im Internet fand, merke ich jetzt, dass meine Fragestellung eingangs nicht dem entspricht, was ich überhaupt will. Besser zu fragen, was richtig ist und nicht was falsch ist.

If Environ("username") = "was_auch_immer_mein_PCname_ist)" Then
MsgBox " Username ist richtig
Else
MsgBox "Username ist falsch
End If

Aber auch das habe ich probiert und es kommt immer falsch raus. So viel Möglichkeiten meine username falsch zu schreiben gibt es nicht.

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 13:33:21

JoWE

Lutz, schon wieder schreibst Du etwas verwirrend:
If Environ("username") = "was_auch_immer_mein_PCname_ist)"
Du musst Dich schon entscheiden: Username oder PC-Name das ist eben NICHT identisch!!!
Siehe dazu auch was ReginaE dazu geschrieben hat!!!
Ansonsten zeig mal Deine Arbeitsmappe, die den Code enthält.
Gruß
Jochen

Fragen über Fragen

01.01.2026 20:15:48

Marc

Es sind die Fragen was suchst du:

1.
suchst du deinen PC Namen (meist Netzwerkname des PCs) oder suchst du den aktuell angemeldeten Benutzer (Benutzer/Nutzer)...
2.
mit einer If Abfrage sollte man zunächst das suchen , was den HauptCode der Sub weiter bringt, und im Else wenn das gesuchte nicht gefunden wird..
Sprich
Möchtest du wissen ob der Benutzer der richtige ist und dann weiter den Code ausführen, wenn nicht das abbrechen
oder
soll der gesuchte Benutzername nicht der Vorgabe entsprechen, dann wird Code ausgeführt, und wenn er es nicht ist beendet es die SUB ?

Du wirfst hier einiges durcheinander..

zudem musst du bei Strings (z.B. "VoG") immer drauf achten das "VoG" > (ungleich) "vog" ist.. Hier muss jedes Zeichen stimmen damit am Ende der Vergleich stimmt, stimmt ein Zeichen nicht ist der Vergleich IMMER falsch...

da macht es manchmal sinn alle Zeichen groß (UCASE) oder klein (LCASE) zu setzen und dann vergleichen , sprich LCASE("VoG") = "vog" (dann wird aus VoG ein vog und dann verglichen) --> Windows macht es beim Anmelden auch so ob ich micht mit User oder user als Benutzername anmelde, er akzeptiert es...

Bei Passwörter ist das natürlich nicht sinnvoll da dort jedes Zeichen im String exakt richtig sein soll

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 12:50:30

ReginaR

Moin,

ich grätsche nochmal rein:
Vielleicht liegt es daran:

Environ("username") gibt nicht den Computernamen sondern den Benutzernamen, der bei der Windows-Anmeldung eingegeben wird, an.

VG Regina

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 12:52:59

ReginaR

.. nachtrag:

Computername wird so ausgelesen:
Environ("computername")

VG Regina

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 13:21:28

RPP63

Moin Regina!
Jetzt hoffe ich mal, dass sich der TE damit keinen Kopierschutz basteln will.
Wäre ein Rohrkrepierer mit Ansage.

Gruß Ralf

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 13:35:41

ReginaR

Moin Ralf,

jo, das hoffe ich auch, aber die Wahrscheinlichkeit ist nicht hoch ..

Den Zahn muss ich Kunden oder Seminarteilnehmern auch immer wieder ziehen.

VG Regina

AW: If Environ("username") <> "VoG" Then ... zeigt immer "richti

01.01.2026 14:37:19

Lutz

So in der Art läuft's.

If Environ("COMPUTERNAME") = "ghghghghgh" Then
usw.

Danke.

If Environ("username") <> "VoG" Then ... zeigt immer "richti

Forumthread: If Environ("username") <> "VoG" Then ... zeigt immer "richti

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

If Environ("username") <> "VoG" Then ... zeigt immer "richti

Forumthread: If Environ("username") <> "VoG" Then ... zeigt immer "richti

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread