wie kann ich bei dem nachfolgenden Makro ausschließen das Zahlen doppel ausgeworfen werden?
Sub LottoZahlenErstellen()
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
End Sub
Gruß Sonnenpeter