Gruppe
Allgemein
Bereich
Variable
Thema
Feldvariable auf Inhalt testen
Problem
Wie kann ich feststellen, ob ein bestimmter Wert in einer Matrix enthalten ist, ohne daß die einzelnen Felder durchlaufen werden müssen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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