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

Hallo!

Nun lass das ganze hier bitte nicht zu einer Neverending-Story ausarten...
Als nächstes sollen dann noch Blümchen drumrum, oder was?

Färben kannst du über die bedingte Formatierung (Menü Format).

Sounds und Animationen kann man über VBA sicher auch einbinden, aber das ist mir zu hoch.
(und vor allem much too much Spielkram...)

 

Okay, danke dir trozdem...

wäre zwar schön gewesen nach schwere Aufgaben eine Belohnung (film schauen), aber gut...

Habe lieben dank...

Gruß Paffy

 

Hallo Ihr lieben,

habe da noch ein Problem bei meinem Projekt.

Wenn ich 2 Zahlen in einem Block in einer Reihe suche, sie auch einzelln überprüfen lasse gibt mir die wenn Funktion ein richtig.
Möchte ich sie aber mit einmal überprüfen lassen macht er mir ein Falsch draus (siehe Bild), kann mir da jemand mal bite weiter helfen!



MfG Paffy

 

Hallo

das geht mit der Bedingte Formatierung!

Gruß

 

Hallo Leute,

dank der Hilfe von gook und schatzi habe ich mein erstes Projekt beendet.

Ich habe 2x2, 3x3 und 4x4 Blocke mit Plus, Minus und Plus-Minus nun so generiert, das was recht gutes heraus gekommen ist. (erstmal nur bis 99)
Habe aus der Zuhilfe von gook und schatzi endlich das erstellen können, was ich mir erhofft habe.

!!! Danke nochmal an die beiden !!!

Ich stelle nun mein Projekt hier zum download bereit, hoffe das andere User auch daran Freude haben werden.

Man kann dort neu genereieren, es am Pc lösen aber auch ausdrucken ist möglich.
Wünsche viel Spass damit, würde mich über Rückmeldungen sehr freuen.

MfG Paffy

 

Hallo Nocheinmal an Euch...

ich möchte meinem Sohn die Chance einräumen, wenn er mal am verzweifeln ist, das er eine Lösung in einem Popup-Fenster bekommen kann, damit er sehen/vergleichen kann, wo sein Fehler liegt.

Ist sowas möglich? Wenn ja, wäre ich über jede Hilfe Dankbar.

MfG Paffy

 

Hallo!

Nichts für ungut, aber dies ist nun definitiv die allerletzte Spielerei, an der ich mich beteilige!
Das wird ja eher ein Adventure-Game als eine Mathe-Hilfe...

Der erste Code fügt in die aktive Zelle den Wert aus dem Lösungsblatt als Kommentar ein.
Der zweite Code löscht diesen Kommentar wieder.

Code:

Sub KommentarAnzeigen()
Dim Kom As Comment, Nr As Integer, Zelle As String
Zelle = ActiveCell.Address
Nr = ActiveSheet.Index
Set Kom = ActiveCell.AddComment
Kom.Text CStr(Sheets(Nr + 1).Range(Zelle).Value)
Kom.Visible = True
End Sub

Sub KommentarLöschen()
ActiveCell.ClearComments
End Sub

 

Hallo Schatzi...

danke für die rasche Antwort...
Ich meinte aber ein Popup-Fenster, kein Kommentar.
Also ein Fenster wo die Lösung komplett drin steht. wie auf dem Lösungsblatt, damit er sieht wo sein Fehler liegen tut.

Geht sowas?

Gruß Paffy

 

Das ist mir zu hoch...

 

Nagut, nun habe ich das mal grafisch dargestellt, was ich meine, vielleicht kommt das besser rüber als das schriftliche...



das was im schwarzen Kasten drin ist soll von meinem Lösungsblatt ausgelesen werden, weil ich nicht nur eine Tabelle auf meinem Blatt habe...

ist das irgendwie mahbar?

MfG Paffy

 

Hallo!

Ich hatte auch schon vorher verstanden, was du möchtest, aber für dein Vorhaben müsste der schwarze Kasten ja irgendwie als Bild/Grafik vorliegen und das tut er eben nicht...

 

Nein, er soll eben nicht als Grafik vorliegen, er soll einfach nur ausgelesen werden, muss ja nicht genauso sein, es war ja auch nur eine vorstellung!
Excel kann doch soviel auslesen... warum eben nicht das in einem Popup, einem Kommentar, oder weiss ich nicht was...
Habe ja auch schon versucht, bin aber eben nicht dahinter gekommen... deshalb frage ich ja hier nach... weil Ihr mir hier schon so lieb geholfen habt.

MfG Paffy

 

Hallo!

Die Kommentar-Lösung wurde von dir abgeschmettert, wenn ich mich recht erinnere...

So, wie du das vorhast, ist das IMHO nicht machbar!

 

Dein Kommentar bezieht sich nur auf eine Zelle!
Möchte aber nicht nur eine Zelle zeigen, sondern eben den Kompletten Tabellen Block...

 

Hallo!

Ein allerletzter Versuch, der deine Erwartungen nun doch zu 95% erfüllen müsste:
Markiere eine Zelle des Zahlenblocks und rufe dann diesen Code auf:

Code:

Sub PopUp_Einblenden()
Dim Nr As Integer, Zelle As String
Zelle = ActiveCell.Address
Nr = ActiveSheet.Index
Sheets(Nr + 1).Range(Zelle).CurrentRegion.Copy
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.Fill.Visible = msoTrue
End Sub

Aber um deiner nächsten Frage gleich vorzugreifen:
Nein, ich weiß nicht, wie man das Bild bewusst und intelligent platzieren kann...