Hallo Excelfreunde
ich habe folgenden Code der mir 5 Zufallszahlen erzeugt
Private Sub CommandButton1_Click()
Dim x As Long
Dim i As Long
For i = 1 To 5
Do
x = WorksheetFunction.RandBetween(1, 45)
If WorksheetFunction.CountIf(Range("C1:C13"), x) = 0 Then
If WorksheetFunction.CountIf(Range("B1:B" & i), x) = 0 Then
Exit Do
End If
End If
Loop
Nun mein Anliegen
Ist es möglich in der Zeile
"For i = 1 to 5"
die "5" durch den Wert von Tabellenblatt1 Zelle A1
zu ersetzen?
wenn ja, wie geht das?
optional wäre noch die Zellen A1:A12 beim
Start des Makros zu löschen.
danke für die Hilfe
Lg Wolfgang