Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Username danben Orginal Namen | Herbers Excel-Forum

Forumthread: Username danben Orginal Namen

Username danben Orginal Namen
14.10.2011 18:48:06
Kurt K

Guten Abend zusammen,
ich habe ein kleines Problem.
In einer Tabelle (Muster) stehen im Bereich R2:R50 untereinander die
Anwender-Usernamen.
Daneben in der Spalte S2:S50 die Orginalnamen.
Ich habe folgende Zeile in der Userform hinterlegt:
Me.Label36 = Environ("Username")
das klappt der Username wird angezeigt.
Jetzt möchte ich daneben den Orginalnamen setzen:
Me.Label36 = Name ???
kann mir jemand helfen ?
mfg Kurt K

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Username danben Orginal Namen
14.10.2011 18:55:33
Reinhard
Hallo Kurt,

Me.Label36 = "not found"
With Worksheets("Tabelle1")
If Application.CountIf(Range("R2:R50")) > 0 Then
Me.Label36 = Application.VLookup(Environ("Username"), Range("R2:S50"), 2, 0)
End If
End With

Gruß
Reinhard
AW: Username danben Orginal Namen
14.10.2011 19:20:45
Kurt K
Hallo Reinhard, leider Fehlermeldung.
Laufzeitfehler 1004
Ungültige Anzahl von Argumenten.
Me.Label36 = "not found"
With Worksheets("Muster")
If Application.CountIf(Range("R2:R50")) > 0 Then
Me.Label37 = Application.VLookup(Environ("Username"), Range("R2:S50"), 2, 0)
End If
End With
bleint hier stehen:
If Application.CountIf(Range("R2:R50")) > 0 Then
mfg Kurt K
Anzeige
AW: Username danben Orginal Namen
14.10.2011 19:25:23
Reinhard
Hallo Kurt,
sorry, mein Fehler, was vergessen:

If Application.CountIf(Range("R2:R50"),Environ("Username")) > 0 Then

Gruß
Reinhard
Kein Problem aber leider keine Anzeige
14.10.2011 20:00:05
Kurt K
Hallo Reinhard,
keine Fehlermeldung aber leider auch keine Anzeige auf der Userform1.
Me.Label36 = Environ("Username")
With Worksheets("User")
If Application.CountIf(Range("R2:R50"), Environ("Username")) > 0 Then
UserForm1.Label37 = Application.VLookup(Environ("Username"), Range("R2:S50"), 2, 0)
End If
End With
Der Username in Label36 wird angezeigt aber Label37 nichts.
Habe die Tabelle unbenannt in User und alle Leerzeilen entfernt.
Ich habe keine Ahnung,
mfg Kurt K
Anzeige
AW: Kein Problem aber leider keine Anzeige
14.10.2011 21:26:39
Reinhard
Hallo Kurt,
scheinbar ist heut nicht einer meiner besten tage :-)
Beachte die beiden Punkte die ich jeweils vor "Range" machte. Nur dadurch bezieht sich .Range auf das Blatt der With-Schleife. 

Me.Label36 = Environ("Username")
With Worksheets("User")
If Application.CountIf(.Range("R2:R50"), Environ("Username")) > 0 Then
UserForm1.Label37 = Application.VLookup(Environ("Username"), .Range("R2:S50"), 2, 0)
End If
End With

Gruß
Reinhard
Anzeige
Super, DANKE i.o. -)
14.10.2011 21:33:04
Kurt K
Hallo Reinhard,
kein Problem, tausend Dank.
mfg Kurt K
AW: Super, DANKE i.o. -)
15.10.2011 07:39:50
;

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