Hallo zusammen,
ich würde gerne die Formel Index und Zeilen kombiniert in VBA umsetzen.
Hintergrund ist, dass aus einer definierten Datenreihe A1:A10 zufällig eine Zahl mit zurücklegen gezogen werden soll.
In Excel wäre die Umsetzung =Index(A1:A10;Zeilen(A1:A10)*Zufallszahl()+1)
Bei folgendem VBA-Code kommt allerdings die Fehlermeldung: Laufzeitfehler 13 - Typen unverträglich
Sub Index()
Dim Range("A1:A10") As Double
Dim Rnd As Double
For i = 1 To 10
Cells(i, 5) = Application.WorksheetFunction.Index(Worksheets("Tabelle1").Range("A1:A10"), Application.Rows(Worksheets("Tabelle1").Range("A1:A10") * Rnd + 1))
Next i
End Sub
|