Office: VBA - Zufällig 1 oder 0 erzeugen

Hallo Zusammen,

wahrscheinlich ist es eine ganz banale sache, mit der ich mich aber jetzt schon seit 2 stunden rumschlage un dich hoffe das mir jemand helfen kann.

Ich muss in VBA einen Random Walk programmieren, momentan befinde ich mich noch ganz am Anfang:
Zuerst muss ich einen Startwert haben, der zufallsweiße 1 oder 0 sein soll, leider weiß ich nicht, wie das geht, das VBA mir einfach zufällig 1 oder 0 ausgibt.

Danke für Eure Hilfe. :-)
Juchan

 

Hallo!

Code:

Sub zufall()
Dim x As Byte
Randomize
x = IIf(Rnd < 0.5, 1, 0)
End Sub

 

Oder auch

Code:

x = int( rnd + 0.5 )

Gruß, Michael