Office: Divisionsgenerator mit Rest

Hallo...

Habe hier mal ein Bild gemacht:

Bräuchte jetzte eine Divi-Generator der Zufallszahlen erstellt,
wo dann auch Reste entsteht, wie im Bild zu sehen.

Wäre für Hilfe dankbar

MfG Paffy

 

Hallo!

Ein Beispiel:
In A2 steht der Dividend: =KÜRZEN(100*ZUFALLSZAHL())
In C2 steht der Divisor: =KÜRZEN(A2*ZUFALLSZAHL())
In E2 steht das Ergebnis: =KÜRZEN(A2/C2)
In F2 steht der Rest: =REST(A2;C2)

 

Hallo Schatzi...

Wenn ich das so in die Tabelle eintrage funzt es,
nur wenn ich mir wieder einen Generator baue komme ich wieder nicht klar...
Da klappt das nicht!

Gruß Paffy

 

Na da habe ich aber doch noch ein anderes Problem:

Wenn eine Zahl mit 0 Dividiert wird erscheinen die Routezeichen :-(
Kommentar der Routezeichen: #DIV/0!

Gruß Paffy

 

Hallo noch einmal,

es gibt ja nun schon ein Script was Divisionsaufgaben macht,
kann man da nicht irgendwie eine Plusaufgabe mit einbinden,
die dann solche Aufgaben ausspuckt?

Hier nochmal das Script der Division:

Code:

Sub divi(Zelle As Range)
Const G = 100
Dim a As Long, b As Long, c As Long, d As Long
Do
d = Fix(G * Rnd) + 1
c = d * (Fix(G * Rnd) + 1)
b = d * (Fix(G * Rnd) + 1)
a = b * c
Loop Until d > 1 And a < 100 'Schleifenende
Zelle.Offset(0, 0) = a
Zelle.Offset(0, 2) = b
Zelle.Offset(2, 0) = c
Zelle.Offset(2, 2) = d
Zelle.Offset(0, 4) = a / b
Zelle.Offset(2, 4) = c / d
Zelle.Offset(0, 1) = ":"
Zelle.Offset(2, 1) = ":"
Zelle.Offset(0, 3) = "="
Zelle.Offset(2, 3) = "="
End Sub

Sub Genriere()
Grenze = 99
divi Range("bm1")
divi Range("bm5")
End Sub

Bitte um Hilfe!

 

Hallo!

Code:

Sub DiviRest(Zelle As Range, Grenze As Integer)
Zelle.Offset(0, 0) = 1 + Fix(Grenze * Rnd)
Zelle.Offset(0, 1) = ":"
Zelle.Offset(0, 2) = 1 + Fix(Zelle * Rnd)
Zelle.Offset(0, 3) = "="
Zelle.Offset(0, 4) = Fix(Zelle / Zelle.Offset(0, 2))
Zelle.Offset(0, 5) = Zelle Mod Zelle.Offset(0, 2)
End Sub

Sub Aufruf()
DiviRest [a1], 100
End Sub

 

Danke Schatzi