Username Abfrage

[stonemaus]

Guten Tag
Ich suche die Möglichkeit in zwei Spalten den „Username“  und ein Buchstabenkürzel auszuwerten.

Das heißt: in Spalte [F11:F115] stehen die Usernamen z.B. „Q11125“  in Spalte [B11:B115] die Buchstabenkürzel z.B. „MV“.
Wenn der User und das Buchstabenkürzel in der selben Zeile vorkommen sollte ich ein True bekommen.

Wenn ich nur eine Zeile auswerte funktioniert mein Code,  aber für Spalten nicht.

If UCase(Environ("Username")) = [F48] And [B48].Value Like "MV" Then

Ich bitte um Eure Hilfe, und danke schon mal im Voraus.

[Steffl]

Hallo,

versuche es mal so

Code:

If UCase(Environ("Username")) = Range("F48").Value And Range("B48").Value Like "MV" Then

[stonemaus]

Hallo Stefan
Ja so funktioniert der Code natürlich auch, aber ich habe eine ganze Liste von Usern die ich abfrage.
Die geht von Zeile 11 bis Zeile 115 in denen ich schaue ob der angemeldete User in der selben Zeile die Buchstaben stehen.

Gruß Peter

[Steffl]

Hallo Peter,

vielleicht so?

Code:

Sub prcBenutzer()
   Dim rngTreffer As Range
  
   Set rngTreffer = Range("F11:F115").Find(UCase(Environ("Username")), LookIn:=xlValues, lookat:=xlWhole)
  
   If Not rngTreffer Is Nothing Then
      If rngTreffer.Offset(, -4).Value Like "MV" Then
         MsgBox "Ja"
      End If
   End If
   'If UCase(Environ("Username")) = Range("F48").Value And Range("B48").Value Like "MV" Then

End Sub

[stonemaus]

Hallo Stefan  :18:

Vielen Dank, so funktioniert es perfekt!!!!

MfG Peter