Variablen Typ unverträglich?
14.11.2003 08:59:19
Jürgen K.
ich versuche aus einer Reihe von Werten (B1:Bn, n ist variabel) den Maximalwert zu ermitteln und dann aus einem Wertebereich von 1 bis zu eben diesem ermittelten Maximalwert eine Zufallszahl ausgeben zu lassen.
(nur in diesem Bereich stehen Werte auf dem Blatt)
Dieser Teil >Max = Application.Max(Cells)< liefert mir den max. Wert
und dieser Teil >Zeile = [TRUNC(RAND()*Max)]< sollte eigentlich die Zufallszahl ermitteln (Zeile deshalb, weil ich diesen Wert später in einer Offset Zuordnung verwenden will).
Ich bekomme aber immer eine Fehlermeldung in der letztgenannten Zeile (Laufzeitfehler 13, Typen unverträgllich). Kann mir vielleicht jemand erklären, woran das liegt?
Wenn z. B. der Teil >Max = Application.Max(Cells)< den Wert 155 liefert
und ich diesen fix in den Teil >Zeile = [TRUNC(RAND()*Max)]< anstelle von Max eintrage, funktionierts einwandfrei.
Ich habe schon alle möglichen Variablentypen probiert, leider ohne positiven Erfolg.
Die Wertebereiche von Zeile und Max sind dabei meiner Meinung nach nicht das Problem.
So sieht der gesamte Code derzeit aus.
Sub Zufallswert()
Dim Zeile As Byte
Dim Max As Byte
Max = Application.Max(Cells)
Zeile = [TRUNC(RAND()*Max)]
Range("B1").Select
Range("A1").Value = ActiveCell.Offset(Zeile, 0).Value
End Sub
Gruß, Jürgen