Problem mit index(vergleich..)
28.09.2002 13:30:27
Helmut
ich gebe eine Nummer ein, suche mit dieser Nummer in einer Matrix ob diese Nummer vorhanden ist und gebe entsprechende Daten aus. Das funktioniert bei gültigen Eingaben (dh die Eingabenummer ist in der Matrix vorhanden) problemlos, nur wie schaffe ich es, dass im folgenden Code statt der Fehlermeldung "Die Matcheigenschaft des worksheetfunction-objektes kann nicht zugeordnet werden" ich zb eine Fehlermeldung ausgebe (Versuche mit iserror... haben auch nichts gebracht):
Sub index()
Dim eingabe, ausgabe As String
Dim brange, arange As Range
Set arange = Range("a:a")
Set brange = Range("b:b")
eingabe = Cells(1, 5).Value
ausgabe = Application.WorksheetFunction.index(brange, Application.WorksheetFunction.Match(eingabe, arange, 0))
Cells(2, 5).Value = ausgabe
Set arange = Nothing
Set brange = Nothing
End Sub
Vielen Dank für eure Hilfe Helmut