Index u. Match
15.03.2007 23:52:21
Andreas X
Was mach' ich hier falsch?
Function Ergebnis (a)
Dim Bereich1 As Range, Bereich2 As Range
Set Bereich1 = Range("Arbeitsblattbereichsname1").Value
Bereich2 = Application.WorksheetFunction.Index(Bereich1, 1, 1)
Ergebnis = Application.WorksheetFunction.Match(a, Bereich2, 0)
End Function
Da scheint irgendwie in der Syntax oder den Definitionen was verkehrt zu sein, aber ich komme nicht d'rauf. Weiß' da jemand von Euch weiter?
Gruß,
Andreas X