Zufallszahl ohne Wiederholung mit VBA

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Zufallszahl ohne Wiederholung mit VBA

    Hallo. ich möchte eine 9 stellige Zufallszahl generieren. Diese darf nicht doppelt vorkommen. Wenn man eine neue Zufallszahl generieren will, soll diese in der nächsten freien Zeile stehen. Die Zufallszahlen sollen in Spalte B geschrieben werden.

    Vielen Dank im Voraus.

    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [* Neues Thema] klickt. ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    So was

    Visual Basic-Quellcode

    1. Option Explicit
    2. Sub Init()
    3. Randomize
    4. End Sub
    5. Sub NextNumber_Click()
    6. Dim n As Long, i As Long
    7. For i = 1 To 1000
    8. n = NextNumber
    9. If Range("B:B").Find(n, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
    10. Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = n
    11. Exit Sub
    12. End If
    13. Next
    14. MsgBox "no new number found"
    15. End Sub
    16. Function NextNumber() As Long
    17. Dim r As Double
    18. r = Rnd
    19. NextNumber = 1000000000 * r + 1
    20. End Function
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende