Hilfe bei Makro ...
27.12.2005 11:03:18
Sonnenpeter
Ich habe mir das nachfolgende Makro gebastelt.
Sub LottoZahlenErstellen()
NeuWählenZähler = 0
If Sheets("Zettel").Range("E6").Value > 12 Then
MsgBox " Sie müssen erst den Lottozettel zurücksetzen!"
Exit Sub
End If
Sheets("Zettel").Range("C1:O1").ClearContents
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
Randomize
With Sheets("Zettel")
.Range("C1").Value = Int(49 * Rnd) + 1
.Range("E1").Value = Int(49 * Rnd) + 1
.Range("G1").Value = Int(49 * Rnd) + 1
.Range("I1").Value = Int(49 * Rnd) + 1
.Range("L1").Value = Int(49 * Rnd) + 1
.Range("N1").Value = Int(49 * Rnd) + 1
End With
'WeiterMachen
End Sub
Wie kann ich vermeiden, dass Zahlen doppelt ausgeworfen werden.
Gruß aus dem verschneiten Rheinhessen
Sonnenpeter