Array auf Eintrag überprüfen
04.01.2022 11:07:33
Chris
mit unten stehendem Makro lese ich eine Liste von Namen ein.
Wie kann ich üebrprüfen, ob einer der in der Liste aufgeführten Namen = dem aktuellen Benutzernamen ist. Wenn ja msgbox "ja", wenn nein, msgbox "nein".
Die Variente mit Nein funktioniert leider nicht.
Dim lngzelle As Long
lngzelle = Sheets("Test").Cells(Rows.Count, 27).End(xlUp).Row
Set MyDic = CreateObject("Scripting.Dictionary")
arr = Sheets("X").Range("AA1003:AA" & lngzelle)
For lngL = 1 To UBound(arr, 1)
For intI = 1 To UBound(arr, 2)
MyDic(arr(lngL, intI)) = 0
Next
Next
For Each Element In MyDic.keys
If Element = Environ("username") Then
MsgBox "Ja"
If Not Element = Environ("username") Then
MsgBox "nein"
End If
End If
Next
End Sub
Chris
Anzeige