Gruppe
Allgemein
Problem
Wie kann ich feststellen, ob ein bestimmter Wert in einer Matrix enthalten ist, ohne daß die einzelnen Felder durchlaufen werden müssen?
StandardModule: basMain
Sub ArrayTest()
Dim arrTest(1 To 12)
Dim var As Variant
Dim iCounter As Integer
For iCounter = 1 To 12
arrTest(iCounter) = iCounter
Next iCounter
var = Application.Match(7, arrTest, 0)
If IsError(var) Then
MsgBox "Der Wert wurde nicht gefunden!"
Else
MsgBox "Position: " & var
End If
End Sub