Office: Wunderbares Rätsel

Eigentlich braucht sie es, ja, denn es ist ja reiner Zufall, dass die ganzzahligen Ausgangszahlen alle zwischen 1 und 100 sind. Außerdem gehört sie leider zu denen, die ihre Excelversion nicht schon in der Frage oder besser im Avatar anzeigen.
Man kann die Formel aber auch in XLWeb verwenden, welches jedem kostenlos offen steht.

 

Haha, Danke ihr Beiden. Jetzt versuche ich mich mal an der Formel :-)

Ich benutze Office 2019 Pro Plus

LG,
Lena

 

Sub Rosen(): For a = 1 To 100: For b = 1 To 100: For c = 1 To 100
e = (a / 2 + b) * 2 / 3: f = (e / 2 + c) * 3 / 4: d = f / 3 + a / 2
If d = e And e = f Then MsgBox a & "/" & b & "/" & c & " -> " & d & "/" & e & "/" & f
Next: Next: Next: End Sub

 

Guten Morgen und erneut vielen Dank, Du bist ja früh auf den Beinen!

 

Guten Morgen! Wenn man alt ist, wacht man früh auf. Werden Dir die anderen mehrheitlich bestätigen. Bei mir besonders einschlägig, weil ich Liebhaber von Mittagsschläfchen bin.