Office: Bruchrechnung mit ganzen Zahlen

Hallo...

ich habe da mal wieder etwas zum knobeln :-)


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Mein Sohn kam letztens an, und fragte mich was ist das und wie rechnet man das..
Nun habe ich es ihm erklärt und er möchte sowas üben.
Ich möchte das wieder generieren lassen,
da er aber auch noch nicht über 100 gehen darf,
wäre es schön, wenn das auch wieder einstellbar ist.

Danke im Voraus
Paffy

 

Hallo!

Teste mal sowas:

Code:

Sub teile(Zelle As Range)
Dim Zähler%, Nenner%, Zahl%, Ergebnis%
Nenner = 2 + Fix(8 * Rnd)
Zähler = Fix(Rnd * Nenner) + 1
Zahl = Nenner * Fix(10 * Rnd + 1)
Ergebnis = Zähler / Nenner * Zahl
Zelle.Offset(0, 0) = Zähler
Zelle.Offset(0, 1) = "/"
Zelle.Offset(0, 2) = Nenner
Zelle.Offset(0, 3) = "von"
Zelle.Offset(0, 4) = Zahl
Zelle.Offset(0, 5) = "="
Zelle.Offset(0, 6) = Ergebnis
End Sub

Sub Aufruf()
teile [a1]
End Sub

 

Danke

Hallo schatzi....

danke, du bist der Beste !!!!



Gruß Paffy