Thema Datum  Von Nutzer Rating
Antwort
22.05.2017 19:04:44 eilyk13
NotSolved
Blau Laufzeitfehler 9
 22.05.2017 21:22:22 miramis
NotSolved
22.05.2017 21:28:08 eilyk13
NotSolved
22.05.2017 23:43:25 Miramis
NotSolved

Ansicht des Beitrags:
Von:
miramis		 Datum:
22.05.2017 21:22:22		 Views:
646		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 9

Hallo eilyk13

Versuche es mal so:

Sub ZufallsauswahlTueteSticker()
    Const anzMotive As Integer = 20
    Const anzStickerInTuete As Integer = 5
    
    Dim sticker() As Integer
    ReDim sticker(anzStickerInTuete)
    
    
    Dim i As Integer, j As Integer, zufallssticker As Integer
    Dim StickerSchonVorhanden As Boolean
    
    'Intitialisiere die Karten in Deiner Tüte (array beginnt bei Null)
    For i = 0 To anzStickerInTuete - 1
        sticker(i) = 0
    Next i
    
    
    'Schleife bis 5 unterschiedliche Motive gefunden wurden
    i = 0
    Do Until i >= anzStickerInTuete
        Randomize
        zufallssticker = CInt(Rnd() * anzMotive) + 1
        StickerSchonVorhanden = False
        
        'Überprüfen, ob der Sticker bereits vorhanden ist
        For j = 0 To i - 1
            If sticker(j) = zufallssticker Then
                StickerSchonVorhanden = True
                Exit For
            End If
        Next j
        
        'Falls Sticker noch nicht vorhanden, stecke ihn in die Tüte
        If StickerSchonVorhanden = False Then
            sticker(i) = zufallssticker
            Debug.Print "Sticker " & i + 1 & ": " & zufallssticker
            
            i = i + 1
        End If
    Loop

        
End Sub

Falls Du noch Fragen hast, kannst Du Dich gerne nochmals melden.

Liebe Grüsse

Miramis

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.05.2017 19:04:44 eilyk13
NotSolved
Blau Laufzeitfehler 9
 22.05.2017 21:22:22 miramis
NotSolved
22.05.2017 21:28:08 eilyk13
NotSolved
22.05.2017 23:43:25 Miramis
NotSolved