Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen

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

Gehe zu Seite Zurück 1, 2, 3, 4, 5, 6 Weiter

Autor

Nachricht

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 15:43

Ja, soweit sieht das recht ordendlich aus.. Smile

*freu*

Nur wären da nicht die doppelten Aufgaben !

Paffy

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 16:32

Naja gut....

So sehen nun mene Arbeitsblätter aus.
*******************************************************************************************************
Division:

*******************************************************************************************************
Multiplikation:

und wie bekomme ich das nun in solch ein Script/Makro rein, wie du es schriebst... das man selber bestimmen kann wo er was hinbauen soll?

Paffy

multi_divi.xls

Beschreibung:

generiere Mulziplikations-, und Divisionsaufgaben

Download

Dateiname:

multi_divi.xls

Dateigröße:

52 KB

Heruntergeladen:

16 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 16:36

Hallo!

Das findest du im letzten Beitrag auf Seite 3...

_________________

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 und hilft sicher gerne weiter!

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 16:44

Hallo!

Ja, das habe ich ja hier angewandt...
ja okay, das baue ist da mit drin... aber wie bekomme ich jetzt multi, divi, addi und subtra in ein Script/Makro auf ein Arbeitsbaltt?

Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 17:06

Hallo!

Du kannst sie alle aus der gleichen Prozedur aufrufen:

Sub Aufruf()
divi Range("A1")
multi Range("H7")
addi Range("Z34")
subtra Range("D234")
End Sub

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 17:12

jepp, danke, auf den Weg bin ich jetzt auch schon gekomme Smile

das habe ich nun auch geschafft.... juhu....

*DANKE*
für Deine Hilfe, Ruhe und Geduld....

langsam fängt es an spass zu machen...
dann werde ich das jetzt auch gleich mal mit den Gleichungen versuchen Smile

*Ganz doll drück* Paffy

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 17:32

Halt, das wars noch nicht...

jetzt fehlt mit das noch mit plus und minus in einem Block!

Wie erstelle ich das jetzt?

Gruß Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 17:52

Das konnte bereits mein allererster Generator, wenn ich mich recht erinnere...

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 17:56

ja eben, aber der ist eben anders aufgebaut als der den wir nun zusammen aufgebaut haben, und ich möchte eigendlich alles in einem haben...

Das was wir hier zusammen (meist du) erstellt haben, bezieht sich nur auf add, sub, multi, divi und auch nur 2x2, alle anderen muss ih auch noch umschreiben, aber denke mal das ich das schaffe, nur fehlt mir jetzt das zufällige 2x2 PM als neues script...

MfG Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 18:05

HÄ???

Du kannst mit dem ersten Generator doch problemlos 2x2-Matrizen erstellen; sowohl nur Plus, nur Minus und auch Plus und Minus gemischt:

baue 2, Range("A1"), "PM", 1

erstellt eine 2x2-Matrix mit Plus und Minus.

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 18:12

ja, eben der erste generator von dir kann "P","M" und "PM" von 2x2 bis ...
der beinhaltet aber keine Multi und divi....

multi kann mann später auch 3x3 oder 4x4! bei division weiss ich nich!

aber deshalb hatte ich gefragt wie ich das nun so umsetzen kann wie in deinem ersten Script/Makro.

Gruß Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 18:18

Hallo!

Bei einer Multi-4x4-Matrix und einer Divi-4x4-Matrix schnellen dir die Werte extrem fix in die Höhe (bzw. in den Keller).

Nur so als Anmerkung...

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 18:28

Hallo schatzi....

ich möchte wenigstens eine Matrix von 3x3 und 4x4 für Multi haben...
auch rein infomäßig... das es da in die höhe schnallt ist mir vollkommen klar...aber ich möchte nicht nur ein script verstehe, sondern eben auch andere Variationen...

denn wen ich verstehe was was bedeutet, eröffnen sich für mich auch doch auch noch andere Wege, was meinst du was mir im Mom alles im Kopf rumspukt... das möchtest du bestimmt nicht wissen Smile

*lach*, aber umsomehr ich die scriptsprache vertehe um so mehr kan ich damit machen...

Gruß Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 19:21

Hallo!

Also für die Multiplikation mach ich das ein letztes Mal mit...
Mit diesem Code kannst du eine Multiplikations-Matrix variabler Größe erstellen:
Im Aufruf gibst du zunächst die Größe, dann die Startzelle, dann das zulässige Maximum der Faktoren und schlussendlich das zulässige Maximum der Ergebnisse an.

Code:

Sub Aufruf()
MultiVar 4, [b2], 10, 1000
MultiVar 3, Range("A20"), 11, 1111
End Sub

Sub MultiVar(Größe As Integer, Zelle As Range, ZahlMax As Integer, ErgMax As Long)
'Deklariere einen Spaltenzähler, einen Zeilenzähler, zwei Datenfelder und eine Hilfsvariable:
Dim Spa%, Zei%, Zahl(), Erg(), x&
'Passe die Felder auf die vorgegebene Größe an:
ReDim Zahl(1 To Größe, 1 To Größe)
ReDim Erg(1 To Größe, 1 To 2)
'Zahlen definieren, die kleiner als ZahlMax sind:
Do
For Zei = 1 To Größe 'alle Zeilen
For Spa = 1 To Größe 'alle Spalten
Zahl(Zei, Spa) = 1 + Fix(ZahlMax * Rnd)
Next Spa
Next Zei
'Zeilen-Ergebnisse errechnen:
For Zei = 1 To Größe
x = 1
For Spa = 1 To Größe
x = x * Zahl(Zei, Spa)
Next Spa
Erg(Zei, 1) = x
Next Zei
'Spalten-Ergebnisse errechnen:
For Spa = 1 To Größe
x = 1
For Zei = 1 To Größe
x = x * Zahl(Zei, Spa)
Next Zei
Erg(Spa, 2) = x
Next Spa
'Prüfung, ob alle Ergebnisse innerhalb der vorgegebenen Grenze (ErgMax) liegen:
Loop Until WorksheetFunction.Max(Erg) < ErgMax
'Die Zahlen werden in die Tabelle eingetragen:
For Zei = 1 To Größe
For Spa = 1 To Größe
Zelle.Offset(2 * (Zei - 1), 2 * (Spa - 1)) = Zahl(Zei, Spa)
Next Spa
Next Zei
'Die Ergebnisse werden in die Tabelle eingetragen:
For x = 1 To 2
If x = 1 Then 'Zeilenergebnis??
For Zei = 1 To Größe
Zelle.Offset(2 * (Zei - 1), 2 * Größe) = Erg(Zei, 1)
Next Zei
End If
If x = 2 Then 'Spaltenergebnis??
For Spa = 1 To Größe
Zelle.Offset(2 * Größe, 2 * (Spa - 1)) = Erg(Spa, 2)
Next Spa
End If
Next x
End Sub

Hinweise zur Funktionsweise des Codes sind angegeben.
Fragen zu diesem Code werde ich auch weiterhin beantworten.
Aber alle Fragen, die in irgendeiner Art und Weise weiterführend sind, werden von mir ignoriert!!!
(z.B. Division, Multi+Divi, oder was dir sonst noch so einfällt!)

(Anfangs wolltest du nur ein Dach über'm Kopf; allmählich hast du eine Doppelhaushälfte mit Garten...)

PS: Versuch mal, die Multiplikations- und Gleichheitszeichen selbst einzubauen; diese schreibt der Code nicht!

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 16.04.2008, 00:53

So, nach lagem hin und her habe ich nun das auch geschafft und ich habe mich für folgende Lösung entschieden, weil ich es auf der kurzen Weise nicht geschafft habe...

Also für das 3x3 Variante:

Code:

'********************* DIE "*" ZEICHEN *****************************************
Zelle.Offset(0, 1) = "*"
Zelle.Offset(0, 3) = "*"
Zelle.Offset(1, 0) = "*"
Zelle.Offset(1, 2) = "*"
Zelle.Offset(1, 4) = "*"
Zelle.Offset(2, 1) = "*"
Zelle.Offset(2, 3) = "*"
Zelle.Offset(3, 0) = "*"
Zelle.Offset(3, 2) = "*"
Zelle.Offset(3, 4) = "*"
Zelle.Offset(4, 1) = "*"
Zelle.Offset(4, 3) = "*"
'********************* DIE "=" ZEICHEN *****************************************
Zelle.Offset(2 * Zei - 2, 2 * Größe - 1) = "="
Zelle.Offset(2 * Größe - 1, 2 * Zei - 2) = "="
'********************* ENDE DER ZEICHEN EINBINDUNG *****************************

und bei der 4x4 Variante:

Code:

'********************* DIE "*" ZEICHEN *****************************************
Zelle.Offset(0, 1) = "*"
Zelle.Offset(0, 3) = "*"
Zelle.Offset(0, 5) = "*"
Zelle.Offset(1, 0) = "*"
Zelle.Offset(1, 2) = "*"
Zelle.Offset(1, 4) = "*"
Zelle.Offset(1, 6) = "*"
Zelle.Offset(2, 1) = "*"
Zelle.Offset(2, 3) = "*"
Zelle.Offset(2, 5) = "*"
Zelle.Offset(3, 0) = "*"
Zelle.Offset(3, 2) = "*"
Zelle.Offset(3, 4) = "*"
Zelle.Offset(3, 6) = "*"
Zelle.Offset(4, 1) = "*"
Zelle.Offset(4, 3) = "*"
Zelle.Offset(4, 5) = "*"
Zelle.Offset(5, 0) = "*"
Zelle.Offset(5, 2) = "*"
Zelle.Offset(5, 4) = "*"
Zelle.Offset(5, 6) = "*"
Zelle.Offset(6, 1) = "*"
Zelle.Offset(6, 3) = "*"
Zelle.Offset(6, 5) = "*"
'********************* DIE "=" ZEICHEN *****************************************
Zelle.Offset(2 * Zei - 2, 2 * Größe - 1) = "="
Zelle.Offset(2 * Größe - 1, 2 * Zei - 2) = "="
'********************* ENDE DER ZEICHEN EINBINDUNG *****************************

(kurze Form ware zwar schöner, aber ich habe es auch so geschafft Smile

*freu'
und zufrieden mit deinem Schüler ?-) *grinz*

MfG Paffy

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

Gehe zu Seite Zurück 1, 2, 3, 4, 5, 6 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Inhalt eines Kombinationsfeld in Zell...	Nicki11	Microsoft Excel Hilfe	4	01.12.2008, 19:00
	Bestimmte Zahlen beliebig oft berechn...	Maercle	Microsoft Excel Hilfe	1	24.11.2008, 11:30
	Anzahl an Zeichen abhängig von Wert g...	woerli	Microsoft Excel Hilfe	1	13.11.2008, 13:24
	dokumente lassen sich nicht öffnen	Bam69	Microsoft Word Hilfe	0	21.10.2008, 22:19
	Serienbrief - Anrede auch für zwei Pe...	gitte	Microsoft Word Hilfe	0	01.09.2008, 17:47

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