Gruppe
Funktion
Problem
Wie kann ich eine nicht in einem Tabellenblatt eingetragene zweidimensionale Matrix nach einem Wert durchsuchen, ohne jeden einzelnen Wert prüfen zu lassen?
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