Mehrmals nacheinander Zelleninhalte zufällig wählen und addi (VBA)

Martin Asal @, Montag, 29.04.2019, 08:41 (vor 22 Tagen) @ Newbie33

Hallo Newbie,

hier kannst du die Anzahl als Paramter übergeben. Diese Funktion geht fest davon aus, dass die Werte in B10:B250 stehen, aber das kannst du bestimmt leicht für deine Zwecke anpassen.

Public Function RndSum(Anz As Integer)
Dim Liste(10 To 250)    'In den Zeilen 10 bis 250 stehen die auszuwählenden Zahlen
Dim Zeile As Integer    'Aktuelle Zeile
Dim x As Integer
 
Randomize Timer
 
'bestücke Liste mit Werten, aber nur so viele, wie benötigt werden
Do
    Zeile = Int((UBound(Liste) - LBound(Liste) + 1) * Rnd + LBound(Liste))
    If Liste(Zeile) = 0 Then
        Liste(Zeile) = ActiveSheet.Range("B" & Zeile).Value     'Gesucht wird in Spalte "B"
        x = x + 1
    End If
    If x >= Anz Then Exit Do
Loop
 
'Jetzt zähle die Werte in der Liste zusammen
For x = LBound(Liste) To UBound(Liste)
    RndSum = RndSum + Liste(x)
Next
 
End Function


Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum