Sub ARRAY_Beispiel()
 
Dim Test As String
 
Test = "1, 2, 3, 4, 5, 6, 7, 8, 9"
 
Dim Suchwert As String
 
Dim intNr As Integer
 
intNr = 5
 
Suchwert = intNr
 
Dim i As Integer
Dim arr() As String
 
arr = Split(Test, ", ")
 
Dim Gefunden As Boolean
Gefunden = False
 
For i = 0 To UBound(arr()) - 1
If ar(i) = Suchwert Then
Gefunden = True
End If
Next i
 
If Gefunden = True Then
MsgBox ("Gefunden")
Else
MsgBox ("Nicht gefunden")
End If
 
End Sub

EALA FREYA FRESENA