Eine IN Funktion für Excel VBA
Hier basierend auf einem Beispiel von Microsoft eine IN-Funktion. Mit dieser lässt sich prüfen, ob ein String in einem zusammengesetzten String enthalten ist.
Option Explicit
Function Contains(needle As String, haystack As String, separator As String) As Boolean
Dim rv As Boolean, lb As Long, ub As Long, i As Long, field() As String
field = Split(haystack, separator)
lb = LBound(field)
ub = UBound(field)
For i = lb To ub
If field(i) = needle Then
rv = True
Exit For
End If
Next i
Contains = rv
End Function |
Nachtrag: Möchte man prüfen, ob ein Wert in einer Range vorhanden ist, kann man die folgende User-Defined Function nutzen:
Function InRange(needle As Variant, haystack As Range) As Boolean
Dim rv As Boolean, cell As Range
For Each cell In haystack
If cell = needle Then
rv = True
Exit For
End If
Next cell
InRange = rv
End Function |