Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen

Gruppe

SVERWEIS

Problem

Wie kann ich eine nicht in einem Tabellenblatt eingetragene zweidimensionale Matrix nach einem Wert durchsuchen, ohne jeden einzelnen Wert prüfen zu lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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