Hi, ich hab folgenden Code der mir die Ergebnisse fuer das Wuerfeln mit 4 Wuerfeln wiedergibt, wie kann ich den Code so darstellen, dass es mir die Ergebnisse fuer alle moeglichen Anzahl an Wuerfeln dynamisch wiedergibt? Am besten wuerde ich hierfuer gerne die Eingabe der Inputbox verwenden.
Danke
Sub test()
Dim i As Integer
Dim k As Integer
Dim L As Integer
Dim A As Integer
Anzahl der Wuerfel = CInt(InputBox(“Wie viele Wuerfel? “))
Range("A1").Select
For i = 1 To 6
For k = 1 To 6
For L = 1 To 6
For A = 1 To 6
ActiveCell.FormulaArray = (i + k + L + A)
ActiveCell.Offset(1, 0).Select
Next A
Next L
Next k
Next i
End Sub
|