ich habe eine kleine Function geschrieben, die aber leider nicht das gewünschte Ergebnis liefert.
Ich bin blutiger Anfänger was VBA anbelangt.
Diese Ziel der Function soll sein, dass aus einer gegebene Liste an "Domänen" verglichen wird, ob der aktuell Zellwert einem Wert in der Liste enspricht. Ist die der Fall, dass soll "OK" ausgegen werden, ansonsten "NOK".
Code:
Option Explicit
Function checkvalidDomain(Text As Range)
Dim c As Variant
For Each c In Worksheets("Domänen").Range("D3:D13").Cells
MsgBox (c)
If Text = c Then
Text = "OK"
Exit For
Else: Text = "NOK"
End If
Next
End Function
Habrt ihr eine Idee?
Danke im Voraus!
Viele Grüße
Der_Rudi