Thema: Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen

StandardModule: basMain

Sub ArrayTest()
   Dim arr(1 To 100, 1 To 2) As Integer
   Dim var As Variant
   Dim iCounter As Integer, iTest As Integer
   iTest = CInt(InputBox("Kontrollziffer eingeben:", , 5))
   For iCounter = 1 To 100
      arr(iCounter, 1) = iCounter
      arr(iCounter, 2) = iCounter * 10
   Next iCounter
   var = Application.VLookup(iTest, arr, 2, 0)
   If IsError(var) Then
      Beep
      MsgBox "Wert nicht gefunden!"
   Else
      MsgBox "Wert: " & var
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS