Array in Case-Abfrage
n.
In der ersten Spalte sind ein paar beliebige Werte hinterlegt, die ich in einen Array einspeise.
Nun soll in der dritten Spalte unter einen beliebigen Eingabewert stehen, ob der Wert mit einem der Vektorwerte übereinstimmt oder nicht.
Das Problem bei meinem bisherigem Code ist, dass er einen Wertebereich aufspannt aber nicht die Vektorwerte abfragt.
Würde mich freuen, wenn jemand von euch eine gute Idee hierzu hat...
Private Sub CommandButton1_Click()
Dim vec(5) As Variant
For i = 1 To 6
vec(i - 1) = Cells(i, 1)
Next
Select Case Cells(1, 3)
Case vec(0) To vec(5): Cells(2, 3) = "Wert ist mit einem der Vektorwerte identisch"
Case Else: Cells(2, 3) = "Wert ist mit keinem der Vektorwerte identisch"
End Select
End Sub