Selfmade HeadsUp-Dealer

[Nimifluk]

Hab mal obigen Code überflogen ohne das Excel anzuschauen und mir ist aufgefallen, dass Du Randomize zig mal aufrufst, das kannst Du Dir sparen. Diese Funktion ruft man lediglich zu Beginn einmal auf, um den Startwert des RNG 'zufällig' zu initialisieren, weitere Aufrufe verbessern die Qualität nicht, da mit der RND-Funktion die initialiserte Startsequenz automatisch fortgesetzt wird.
Das Mischen der Karten ist am einfachsten über ein Kartenarray lösbar, d.h. Array mit den 52 Kartenwerten (bzw. Referenzen auf die Karten) und dann jeden Index einmal mit einem zufällig ermiteltem zweiten Index swappen.

Zitat:rndC = Int((anzCardsInDeck - 1 + 1) * Rnd + 1)

Nice :lol:
Int(AnzCardsInDeck*RND+1) würd ausreichen, der Rest (-1+1) ist Zeit- und Energierverschwendung ;-)
Denken ist auch beim coden erlaubt, selbst wenn viele Samples es so machen wie Du :mrgreen: