Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Lotto Zahlen
zurück: Errorhandler wird nicht ausgelöst weiter: Laptop an TV mit HDMI-DVI Kabel Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
B.M.Pretorianer
Gast


Verfasst am:
01. Feb 2011, 23:22
Rufname:


Lotto Zahlen - Lotto Zahlen

Nach oben
       

Hallo Excelfreunde,

wer hat eine möglichst effektive Idee (VBA-Idee),
Betrifft: meine bisherige umständliche Lösung

danke
Code:
Sub zufallszahl()
    Dim arr As Variant
    Dim zuza(5000) As Variant
    Dim zuf As Integer
    Dim s As Integer
    Dim t As Integer
    Dim al As Integer
    Dim merk As Integer
   
    'Zahlen ignorieren
    arr = Array(3, 4, 6, 8, 11, 15, 16, 19, 20, 24, 27, 28, 30, 34, 35, 36 _
              , 44, 47)
    al = -1
    For t = 1 To 5000
        merk = 0
        'Zufallswert erzeugen (Zahl von 1 bis Anzahl beschriebene Menger)
        zuf = Int((49 - 1 + 1) * Rnd + 1)
        For s = 0 To 11
            If zuf = arr(s) Then merk = 1
        Next s
        ' Prüfen ob Zufallszahl doppelt (Idee Fehlt)
        If merk = 0 Then
            al = al + 1
            ' Wenn doppelt, neu berechnen,
            ' sonst Wert in Zelle schreiben (hier habe ich keine Idee)
            If al > 11 Then Exit For
            zuza(al) = zuf
        End If
    Next t
    Range("A1:l1") = zuza
    Range("A1:T1").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess _
                 , OrderCustom:=1, MatchCase:=False _
                 , Orientation:=xlLeftToRight, DataOption1:=xlSortNormal
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen