03.09.2024, 19:26
Hallo Zusammen,
da ich im Netz nicht wirklich fündig geworden bin, ich habe aktuell folgendes Makro:
Sub Zufall()
Dim rng As Range, rngAll As Range
Dim iRandomize As Integer
Set rngAll = Range("E32")
Randomize
rngAll.ClearContents
For Each rng In rngAll.Cells
iRandomize = Int((32 * Rnd) + 1)
Do Until WorksheetFunction.CountIf(rngAll, iRandomize) = 0
iRandomize = Int((32 * Rnd) + 1)
Loop
rng.Value = iRandomize
Next rng
End Sub
Nun möchte ich gerne, damit ich nicht immer das Makro abändern muss, den Int, welcher hier 32 ist, dass er den aus einer Zelle in der Excel Tabelle entnimmt, oder aber, dass er die Zahl beim Button drücken abfragt, und dann ebenfalls in die Zelle einträgt (da mit dieser Zahl in Excel selbst berechnungen statt finden), ist das möglich?
Vielen lieben Dank
Gruß
Stephan
da ich im Netz nicht wirklich fündig geworden bin, ich habe aktuell folgendes Makro:
Sub Zufall()
Dim rng As Range, rngAll As Range
Dim iRandomize As Integer
Set rngAll = Range("E32")
Randomize
rngAll.ClearContents
For Each rng In rngAll.Cells
iRandomize = Int((32 * Rnd) + 1)
Do Until WorksheetFunction.CountIf(rngAll, iRandomize) = 0
iRandomize = Int((32 * Rnd) + 1)
Loop
rng.Value = iRandomize
Next rng
End Sub
Nun möchte ich gerne, damit ich nicht immer das Makro abändern muss, den Int, welcher hier 32 ist, dass er den aus einer Zelle in der Excel Tabelle entnimmt, oder aber, dass er die Zahl beim Button drücken abfragt, und dann ebenfalls in die Zelle einträgt (da mit dieser Zahl in Excel selbst berechnungen statt finden), ist das möglich?
Vielen lieben Dank
Gruß
Stephan