Divisionsgenerator mit Rest :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Divisionsgenerator mit Rest

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 05.07.2008, 15:33

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.07.2008, 16:17

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)

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 05.07.2008, 16:58

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

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 05.07.2008, 19:17

Na da habe ich aber doch noch ein anderes Problem:

Wenn eine Zahl mit 0 Dividiert wird erscheinen die Routezeichen Sad

Kommentar der Routezeichen: #DIV/0!

Gruß Paffy

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 06.07.2008, 15:13

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!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 06.07.2008, 23:20

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

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 06.07.2008, 23:44

Danke Schatzi

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	VBA, nach leerer Zelle Rest der Zeile...	DanielDetzer	Microsoft Excel Hilfe	2	18.09.2008, 15:04
	Spalte A soll stehen bleiben - der Re...	Atostogos	Microsoft Excel Hilfe	4	05.09.2008, 11:54

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de