Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Feldvariable auf Inhalt testen

Gruppe

Variable

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