title image


Smiley Loop(ing) über die Benutzerliste
Hallo Crazy,



Option Explicit

'

Sub Namen_pruefen()

Dim rngZelle As Range

Dim rngBenutzer As Range

Set rngBenutzer = Range("Benutzer")

For Each rngZelle In rngBenutzer

If rngZelle.Value = Application.UserName Then

MsgBox Application.UserName & " steht in der Liste."

End If

Next

End Sub



Gruß, xl'chen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: