@Dirk:
Danke, das hatte ich schon. Da ich nur ein zwei-dimensionales Array habe, mache ich es wie folgt:
IndexResult = ArrayGetIndex(Array, Suchwert)
If IndexResult > Ubound(Array,2) then
IndexResult = IndexResult - Ubound(Array,2)
End If
Danke und Gruss
Andreas
Mein vorheriger Lösungsansatz war falsch.
Richtig müsste es so aussehen:
IndexResult = ArrayGetIndex(Array, Suchwert)
If IndexResult <> 0 then
IndexResult = IndexResult / 2
End if
Wenn ich mich nicht vertue, ist der Divisor die Dimension des Arrays.
Sollte ich falsch liegen, bitte berichtigen.
Gruss
Andreas