Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Username danben Orginal Namen | Herbers Excel-Forum

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige