noch a bissl Senf
25.10.2016 18:20:59
Michael
Hi zusammen,
Rudis Code ist super übersichtlich und sieht höchst einfach aus, auch wenn das Dictionary schon ein Griff in die Trickkiste ist.
Was mir aus eher theoretischen Gründen daran aufstößt, ist, daß die Schleife "unvorhersehbar oft" durchlaufen wird.
Weil das Problem immer wieder auftaucht, möchte habe ich mal eine allgemeine Lösung vorstellen, bei der die Anzahl der Schleifendurchläufe exakt bestimmt ist - mein Beitrag zum Stromsparen, hehe:
Option Explicit
Function Zufallszahlen(von&, bis&, anzahl&, Optional typ As Long = 1)
' "Standardfunktion" für Ziehung ohne Doppelte
' Wertebereich von..bis: ***************
' von: kleinerer Wert
' bis: größerer Wert
' anzahl: Anzahl der zu ziehenden Zahlen
' optionale Typangabe: *****************
' 0: eindimensionales Array
' sonst: zweidimensionales Array hoch
Dim aIn, aOut
Dim i&, k&
' hier ist Raum für Plausibilitätsprüfungen:
' a) ist von
Schöne Grüße,
Michael