Zufallszahlen mit Ausnahme

13/02/2009 - 15:39 von Harald Keil | Report spam
Hallo NG

Ich möchte in einer Zelle eine Zufallszahl generieren lassen.

Das klappt auch ganz gut mit dem Befehl =Zufallszahl() oder Zufallsbereich()

Weiters möchte ich aber eine Zufallszahl zwischen 0 und 20 generieren
lassen mit Ausnahme der Zahlen 3, 6, 8 und 9

Wie krieg ich das gebacken?
Bin schon ganz verzweifelt am suchen aber ich bekomm das leider nicht hin.

Vielleicht kann mir jemand von euch helfen.
Bin für jeden Rat Dankbar.

lg. Harald Keil
 

Lesen sie die antworten

#1 Eberhard Funke
13/02/2009 - 16:01 | Warnen spam
Am Fri, 13 Feb 2009 15:39:05 +0100 schrieb Harald Keil:

Ich möchte in einer Zelle eine Zufallszahl generieren lassen.

Das klappt auch ganz gut mit dem Befehl =Zufallszahl() oder Zufallsbereich()

Weiters möchte ich aber eine Zufallszahl zwischen 0 und 20 generieren
lassen mit Ausnahme der Zahlen 3, 6, 8 und 9




Hallo Harald,

kopiere diese benutzerdefinierte Funktion in ein Modul:

Function ZFZ() As Integer
Dim intTmp As Integer
Dim blBingo As Boolean
Do
intTmp = Int((20 * Rnd) + 0)
Select Case intTmp
Case 3, 6, 8, 9
blBingo = True
Case Else
blBingo = False
End Select
Loop While blBingo = True
ZFZ = intTmp
End Function

Aufruf in der Tabelle =ZFZ()

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Ähnliche fragen