Office: Wunderbares Rätsel

Helfe beim Thema Wunderbares Rätsel in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich hätte da ein kleines aber feines Rätsel, daß ich mit Hilfe von VBA gerne lösen würde. Da mir aber die Fähigkeiten dazu vollkommen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von LenaHernandez, 14. März 2023.

  1. Wunderbares Rätsel


    Hallo zusammen,

    ich hätte da ein kleines aber feines Rätsel, daß ich mit Hilfe von VBA gerne lösen würde.
    Da mir aber die Fähigkeiten dazu vollkommen fehlen, dieses Rätsel zu lösen, hier meine Frage an die Experten, in der Hoffnung auf Erleuchtung.

    RÄTSEL der ROSEN:
    3 Freunde haben jeweils eine nicht definierte Zahl an Rosen.

    • Im ersten Schritt gibt Anton gibt nun die Hälfte seiner Rosen and Bert (A/2)
    • Bert nimmt nun seine Rosen und die Hälfte von Anton SUMME(B + (A/2)) und gibt ein Drittel davon an Charlie.
    • Charlie nimmt Berts Anteil und seine eigenen und gibt ein Viertel an Anton (C/4)
    Am Ende sollte alle 3 Freunde die gleiche Anzahl an Rosen haben.

    Da wir nur von ganzen Rosen reden ergibt sich folgende Information:
    A muss durch 2 teilbar sein
    B durch 3
    C durch 4

    Nach der Verteilung aller Anteile muss A = B = C sein.

    Ich habe durch herumkritzeln und probieren herausgefunden, daß es eine Verteilung gibt. Es wäre ganz wunderbar, wenn es jemand schaffen würde, die auch in VBA zu lösen, falls möglich?

    LG,
    LenaWunderbares Rätsel *:)*
     
    LenaHernandez, 14. März 2023
    #1
  2. Klaus-Dieter Erfahrener User
    Hallo Lena,

    warum VBA? Das kann nichts, was Excel nicht auch könnte.
     
    Klaus-Dieter, 15. März 2023
    #2
  3. Guten Morgen, Klaus-Dieter.

    Der Grund dafür liegt an meinem Interesse, wie man dieses Rätsel per VBA lösen würde.
    Ich würde gerne verstehen und lernen, wie man dies in VBA abbilden würde.

    Habe natürlich selber schon herumprobiert, leider komplett erfolglos.

    LG,
    LenaWunderbares Rätsel *:)*
     
    LenaHernandez, 15. März 2023
    #3
  4. Klaus-Dieter Erfahrener User

    Wunderbares Rätsel

    Hallo Lena,

    im Prinzip ist das in beiden Fällen zunächst einmal reine Mathematik. Der Unterschied bei VBA ist nur der, dass du da die Zellbezüge mit eintragen musst. Also herunter gebrochen auf ein einfachen Beispiel:

    Tabelle1

     ABC
    1Wert 1Wert 2Summe
    223629

    Formeln der Tabelle
    ZelleFormel
    C2=A2+B2


    Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
    Sieht in VBA so aus:

    Code:
    Option Explicit
    
    Sub rechnen()
    Cells(2, 3) = Cells(2, 1) + Cells(2, 2)
    End Sub
    
     
    Klaus-Dieter, 15. März 2023
    #4
  5. Hi Klaus-Dieter,

    wahrscheinlich habe ich mich in meinem Eingangspost nicht verständlich ausgedrückt.
    Sorry dafür.

    Das Problem ist, ich weiß nicht, wie viele Rosen jeder hat. Mir gehts es um den Weg,
    dieses herauszufinden.

    Folgende Information steht mir zur Verfügung:

    Ausgangswerte:
    A = X Rosen
    B = Y Rosen
    C = Z Rosen

    Werte nach Ringverteilung:
    A = A/2 + (C/4)
    B = B + (A/2)
    C = C + (B/3)

    Die richtige Lösung sollte nach Ringtausch A = B = C ergeben mit ganzen positiven Zahlen.

    Mein erster Gedanke war, daß:
    A = teilbar durch 2
    B = teilbar durch 3
    C = teilbar durch 4

    Jetzt starte ich mit einer Schleife (z.B. 1 bis 1000), die prüft welche Zahlen durch 2 teilbar sind und übergebe den ersten Treffer an B, um Zahlen zu finden, die durch 3 teilbar sind. Wenn diese gefunden wurden an C und schlussendlich wieder an A. Wenn eine der Bedingungen NICHT erfüllt wurden, dann sollte es mit dem nächsten Treffer bei A weitergehen, usw.

    Am Ende steht die Prüfung, ob A = B = C gleich sind. Der erste Treffer sollte hiernach ausgegeben werden.

    LG,
    LenaWunderbares Rätsel *:)*
     
    LenaHernandez, 15. März 2023
    #5
  6. Schade, ich denke, das Problem scheint zu komplex.

    Gruß und schönes Wochenende,
    LenaWunderbares Rätsel *:)*
     
    LenaHernandez, 17. März 2023
    #6
  7. d'r Bastler
    d'r Bastler hat Ahnung
    Hallo Lena,

    es ist nicht wirklich trivial, was Du Dir da vorgenommen hast, aber sicher lösbar. Also nicht so schnell aufgeben. Als ebenfalls Rätsel-affin werde ich dann mal ein bisschen Hirnschmalz verschwenden und mir meine Gedanken machen.

    @Klaus-Dieter: Dass VBA nicht mehr kann als XL selbst stimmt ja nun nicht. Oder sehe ich in XL z.B. Userforms, Iterationen usw.?

    Grüße
     
    d'r Bastler, 17. März 2023
    #7
  8. d'r Bastler
    d'r Bastler hat Ahnung

    Wunderbares Rätsel

    ...nicht trivial? Oder vielleicht doch?
    Moin Lena! Schicke mir mal ein Beispiel der verteilten Rosen / was ist als Lösung gegeben? ... ich habe da so eine Idee.
    Grüße
     
    d'r Bastler, 17. März 2023
    #8
  9. Klaus-Dieter Erfahrener User
    Hallo Bastler,

    es ist hier ja nicht das erste Forum, in dem wir aneinander geraten. Nur dass du hier (noch) nicht auf meiner IL stehst. Meine Aussage bezog sich auf den Umfang der Anfrage, das war, wie ich meine, in diesem Kontext auch klar. Also krame hier keine Spitzfindigkeiten raus, es gibt andere Wege sich zu profilieren, wenn man das braucht.
     
    Klaus-Dieter, 17. März 2023
    #9
  10. d'r Bastler
    d'r Bastler hat Ahnung
    Ach Klaus-Dieter ...
    ... ich sehe unsere Historie ein wenig anders. Du hast mir in meinen Anfängen häufig und gut geholfen. Dafür ausdrücklichen Dank! Ich erlaube mir aber inzwischen -nachdem ich nicht nur von Dir- ein bisschen was gelernt habe, gelegentlich Anmerkungen von deren Richtigkeit ich qualifiziert überzeugt bin. Das hat eigentlich nichts mit Aneinandergeraten oder Profilieren zu tun.

    Ist an meinem Kommentar fachlich etwas falsch?

    Gönn' Dir mal 'ne 1/2 Stunde Yoga, bevor Du antwortest... oder mich auf die IL setzt...
    Grüße
     
    d'r Bastler, 17. März 2023
    #10
  11. Klaus-Dieter Erfahrener User
    Hallo Bastler,

    Excel ist in erster Linie eine Tabellenkalkulation, das heißt Daten werden eingegeben und bei Bedarf durch Berechnungen oder ähnliches verarbeitet. Das gilt für Zellformeln ebenso wie für die Arbeit mit VBA. Hierauf bezog sich meine Aussage. Wenn du dann UserForms ins Spiel bringst, ist das für mich Haarspalterei. Denn was macht man mit einem UserForm? Man erfasst Daten, was man ja auch in der Liste direkt machen könnte. Ob sich die Berechnungen nun auf eine Liste oder ein UserForm beziehen ist fast egal. Fast deshalb, weil das UserForm über seine Objekte aus jeder Eingabe einen Text macht, was dann bei der Berechnung explizit berücksichtigt werden muss. So gesehen kann VBA sogar weniger als Excel selbst, oder wie siehst du das?
    Damit wir uns nicht falsch verstehen, ich habe weder etwas gegen die Verwendung von VBA, noch gegen die Verwendung von UserForms. Ganz im Gegenteil, ich arbeite gerne und viel damit. Es ging mir nur darum, dass Lena in ihrer Anfrage, nach einer VBA-Lösung gefragt hatte, was ich bezogen auf ihren Anwendungsfall für nicht erforderlich erachtet hatte.
     
    Klaus-Dieter, 17. März 2023
    #11
  12. d'r Bastler
    d'r Bastler hat Ahnung
    @KD
    Es gibt Leute, die hören zu, denken, überlegen und reden dann. Nette Menschen! Offenbar bist Du inzwischen (warum auch immer?) in einem Modus Lieber viel Reden ohne zu Denken. Also kommst Du (ohne die vorgeschlagene 1/2 Stunde Yoga (vgl. Deine Signatur) zu nutzen) mit Spitzfindigkeiten und Haarspaltereien und leider wenig Nachdenken. Oder hast Du -ganz ohne VBA/Userforms_ eine Lösung für Lena? Ich sehe keine! Sondern nur Dein Prä-Yoga-Gebr....

    @Lena: Auf VBAsteleien.de ist Dein Thema "Rosen-Rätsel" bereits aktiv. Vielleicht magst Du Dich dort in etwas friedlicherer Umgebung umsehen...
    Liebe Grüße... und wie gesagt: Ich habe da so eine Idee Wunderbares Rätsel *;)*
     
    Zuletzt bearbeitet: 17. März 2023
    d'r Bastler, 17. März 2023
    #12
  13. Wunderbares Rätsel

    Oha, das ist interessant! Kenne die Seite nicht, gehe aber gleich mal hin - Danke, für den Hinweis.

    Das Ergebnis sieht wie folgt aus:
    A = 8
    B = 5
    C = 5

    Da ich Excel wie einen "Taschenrechner" benutze, hab ich in meiner Naivität gedacht, man könnte da sicher
    etwas programmieren, wenn man die zugrundeliegenden Informationen in Code verpackt.

    Wollte hier niemandem auf den Schlips treten, bei meiner Anfrage, so dumm sie für manchen auch erscheinen mag.
    Ich kann ganz gut mit Kritik umgehen, wenn es vernünftig formuliert ist, denn nur aus Fehlern kann man lernen.

    LG,
    LenaWunderbares Rätsel *:)*
     
    LenaHernandez, 17. März 2023
    #13
  14. lupo1
    lupo1 Tutorial Guru
    Bei 8 5 5 bekomme ich tatsächlich 6 6 6 raus. Ganzzahlige Vielfache tun es auch.

    Versuchen wir es noch mal mit Formeln:
    A1 B1 C1 ist die Ausgangslage
    A2 B2 C2 ist das Ergebnis

    B2: =(A1/2+B1)*2/3 in Worten: Das neue B setzt sich aus der Hälfte von A1 sowie dem ganzen B1 zusammen, aber da 1/3 gleich weiter geht an C2, bleiben davon nur 2/3 da.

    C2: =(B2/2+C1)*3/4 in Worten: Das neue C setzt sich aus der Hälfte von B2 (das waren 2/3, hier also die Hälfte davon = 1/3) sowie dem ganzen C1 zusammen, aber da 1/4 gleich weiter geht an A2, bleiben davon nur 3/4 da.

    A2: =C2/3+A1/2 in Worten: Das neue A setzt sich aus dem Drittel von C2 (das waren 3/4, hier also ein Drittel davon = 1/4) sowie der restlichen Hälfte von A1 zusammen. Nicht durch das Drittel beirren lassen! In der Aufgabe stand Viertel, aber wenn nur noch 3/4 nach Abzug 1/4 übrig ist, ist letzteres 1/3 von Ersterem.

    Hier die 1 Mio-Zeilen-Ausprobier-Formel, die sich auch in VBA oder beim Solver anwenden lassen sollte:

    =LET(
    a;KÜRZEN(SEQUENZ(1000000;;0;1%%))+1;
    b;KÜRZEN(REST(SEQUENZ(1000000;;0;1%);100))+1;
    c;REST(SEQUENZ(1000000;;0);100)+1;
    e;(a/2+b)*2/3;
    f;(e/2+c)*3/4;
    d;f/3+a/2;
    g;HSTAPELN(a;b;c;d;e;f);
    FILTER(g;(d=e)*(e=f)))


    Hinweis: d e f = a2 b2 c2
    Hinweis2: Ich habe das Ganzzahl-Kriterium weggelassen, da der Filter auch so sich auf die richtigen Ergebnisse beschränkt.
     
    Zuletzt bearbeitet: 17. März 2023
    1 Person gefällt das.
  15. d'r Bastler
    d'r Bastler hat Ahnung
    Oje Lupo, dieser hochqualifizierte Schlingel, war wieder mal schneller als ich. SacklZement.

    @Lena brauchst Du jetzt wirklich noch ein VBA-Konstrukt? Wunderbares Rätsel *;)*

    Grüße
     
    d'r Bastler, 17. März 2023
    #15
Thema:

Wunderbares Rätsel

Die Seite wird geladen...
  1. Wunderbares Rätsel - Similar Threads - Wunderbares Rätsel

  2. Ein kniffliges Rätsel

    in Microsoft Excel Hilfe
    Ein kniffliges Rätsel: Moin, Ich hab ein altes Makro überarbeitet weil es einfach viel zu langsam lief. Anbei eine Beispiel-Datei. Die richtigen Dateien sind um einiges größer aber ich konnte auch in der...
  3. Großes Rätsel...

    in Microsoft Excel Hilfe
    Großes Rätsel...: Hallo liebe Helfer =) bei mir im Büro bin ich so etwas wie der "Excel-Auskenner", nun ist aber ein Problem aufgetreten, das ich nicht nachvollziehen kann. Ich versuch das alles mal so...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden