| Von |
almonte |
| eMail |
|
| Am |
03. Juli 2008 um 20:55:09 |
| Frage |
Hallo Freunde
Wie kann bei nachfolgendem Code das GoTo ersetzen
Randomize
Do While anz2 <> anzd
wied:
zufz = Int(((owert - uwert + 1) * Rnd) + uwert)
If zufz >= 1 And zufz < 10 Then
zufz = "000" & zufz
ElseIf zufz > 9 And zufz < 100 Then
zufz = "00" & zufz
ElseIf zufz > 99 And zufz < 1000 Then
zufz = "0" & zufz
Else: zufz = Cstr(zufz )
End If
For stapel = 1 To anz2
If zufz = nummern(stapel) Then
GoTo wied
End If
Next stapel
anz2 = anz2 + 1
nummern(anz2) = zufz
Loop
Danke für die Hilfe (wahrscheinlich steh ich auf der Leitung) |
|
Zum Seitenanfang