Function ZufallsInteger(Unten, Oben)

' ---------------------------------------------------------
' Gibt eine Zufallszahl im angegebenen Bereicht
' (Unten, Oben) zurück
' ---------------------------------------------------------

    Randomize
    ZufallsInteger = Int((Oben - Unten + 1) * Rnd + Unten)

End Function