Schleife bei Zufallszahlen

Mitglied: hanheik

hanheik (Level 1) - Jetzt verbinden

12.02.2011 um 11:17 Uhr, 3632 Aufrufe, 4 Kommentare

Projekt: Übungsaufgaben für die Grundschule

Hallo Spezis,

für die Excel-Datei mit Übungsaufgaben für die Grundschuke bin ich zur Zeit bei der Subtraktion.
Zur Generierung von Übungsaufgaben verwende ich das folgende Makro in immer abgewandelter Form:

Sub neueZahlenSubtraktionbis1000()
Dim Bereich As Range
Dim zelle As Range
Sheets("Subtraktion bis 1000").Select

Set Bereich = Range("A1:A100,C1:C100")

For Each zelle In Bereich
zelle.Value = Int((1000 * Rnd) + 1)
Next zelle

End Sub

Bei der Subtraktion erzeugt diese Makro jedoch auch Aufgaben, bei denen der Subtrahend größer ist als der Minuend. zB: 123-768=
Da die Kinder jedoch noch keine negativen Zalen kennen, kann man eine solche Aufgabe nicht brauchen.

Wie kann man das Makro so verschleifen, daß es die Felder in einer Zeile überprüft?
Zelle a1 größer Zelle c1 : in Ordnung > nächste Zeile
Zelle a1 kleiner Zelle c1 : nicht in Ordnung > Zeile nochmal mit Zufallszahlen belegen

Kann mir dabei jemand helfen?

Gruß

Hanheik
Mitglied: bastla
12.02.2011 um 12:29 Uhr
Hallo hanheik!

Würde ich eher so machen:
Die Abfrage muss auf "<=" erfolgen, da ansonsten bei einem Minueneden von 1 kein passender Subtrahend gefunden werden kann und das Script in eine Endlosschleife gerät. Alternativ könntest Du auch dem Minuenden ansstelle eines "+1" ein "+10" mit auf den Weg geben ...

Grüße
bastla

P.S.: Die Anleitung zur "Code"-Formatierung findest Du übrigens hier ...
Bitte warten ..
Mitglied: 76109
76109 (Level 3)
12.02.2011 um 12:46 Uhr
Hallo @All

oder so:

Gruß Dieter
Bitte warten ..
Mitglied: Biber
12.02.2011 um 14:09 Uhr
Moin hanheik,

oder, als dritte Variante, ein Versuch diesem zerstückelten Bereich A1:A100;C1:C100 irgendeinen Sinn einzuhauchen:

[Obwohl eigentlich der ganze Ansatz nur durch das Vorhandensein des zusammengekloppten Bereichs erst so kompliziert wird.
Normalererweise würde jeder Zusammenschroter die Zellen A1:A100 und C1:C100 direkt addressieren]


Grüße
Biber
Bitte warten ..
Mitglied: hanheik
12.02.2011 um 14:23 Uhr
Hallo Ihr 3,

vielen Dank für eure Mühe, das funktioniert und hilft wirklich weiter.

Gruß

Hanheik
Bitte warten ..
Heiß diskutierte Inhalte
Windows Server
Aufgabenplanung PowerShell Skript startet nicht
shooanVor 1 TagFrageWindows Server36 Kommentare

Hallo Zusammen, ich habe ein Skript bekommen das ich gerne so einstellen will das dieses beim Start des Exchangeservers aktiviert werden soll. Ein Ausführung ...

Internet
Webcam oder IPcam aus dem Internet erreichbar?
dertowaVor 1 TagFrageInternet17 Kommentare

Hallo zusammen, mal eine spezielle Frage, vielleicht kann jemand einen Dienst aufgrund guter Erfahrung empfehlen. Die Hündin einer guten Bekannten bekommt Nachwuchs und dafür ...

Windows Netzwerk
Computername erneut vergeben?
gelöst malkieVor 1 TagFrageWindows Netzwerk10 Kommentare

Guten Morgen, wir haben in der Firma Computernamen nach dem Muster: PC-Abteilung-Nummer (PC-IT-1) So, aktuell habe ich mal gelernt ganz früher, dass man den ...

LAN, WAN, Wireless
Unterschiedliche IP-Adressbereiche im Netzwerk
achkleinVor 17 StundenFrageLAN, WAN, Wireless17 Kommentare

Hallo, ich stehe vor einem Problem mit der WLAN-Verbindung zum Router (Fritzbox Cable 6490). Das verbundene Notebook hat die Adresse 192.168.0.164, Gateway ist 192.168.0.149: ...

Backup
Zusätzlicher Backupschutz gegen Ransomware Befall
staybbVor 1 TagFrageBackup4 Kommentare

Hallo zusammen, wir nutzen Veeam Backup & Replication als Backup für unsere Server und Files. Es werden immer on-side beim Kunden Backups auf einem ...

Hardware
Temperaturüberwachung Raum
ingo1988Vor 1 TagFrageHardware8 Kommentare

Hallo, ich brauche eure Hilfe. Ich möchte gerne eine Temperaturüberwachung installieren. Es sollte über Wifi funktionieren, ist aber kein Muss. Außerdem soll eine Alarmbenachrichtigung ...

Microsoft Office
E-Mail kommt nicht an
gelöst HeinrichMVor 1 TagFrageMicrosoft Office10 Kommentare

Hallo zusammen, in der letzten Zeit häufen sich die Meldungen, dass E-Mails nicht ankommen. Es ist kein Muster zu erkennen. Mal kommt eine Mail ...

Router & Routing
Verkaufe apu4.d4 Set
pasu69Vor 1 TagAllgemeinRouter & Routing11 Kommentare

Guten Abend zusammen, ich hätte ein APU4.D4 Bundle abzugeben, dass ich erst Anfang März gekauft habe. Leider ist die Hardware tatsächlich zu schwach, um ...