Office: (Office 2016) Glücksrad mit VBA und For-Schleifen

Hallo zusammen!

Da ich hier immer Hilfe finde wende ich mich mal wieder mit folgendem Problem an euch:

Ich möchte in Excel etwas auslosen. Das ansich ist auch kein Problem. Damit es etwas spannender ist und etwas hübscher aussieht soll es jedoch wie bei einem Glücksrad ein paar Sekunden dauern, bis das endgültige Los angezeigt wird. In der Zwischenzeit soll per Zufall ein anderes Los als gezogen angezeigt werden, eben wie bei einem Glücksrad. Zusätzlich wird das aktuelle Los noch farblich markiert. Etwas schwer zu erklären, ich hoffe ihr versteht es.
Da zunächst einer von vier Töpfen gezogen wird und anschließend aus dem Topf das wirkliche Los, wird unten angezeigter Code quasi zweimal hintereinander ausgeführt, eben nur mit anderen Bezugs-Auswahl. Wie ihr dort seht habe ich das ganze mit For-Schleifen und Sleep realisiert. Hierbei kommt es immer wieder zu Problemen. Erstmal läuft das ganze nicht schön rund, spirch es kommt immer wieder zu rucklern. Dabei kann es desweiteren dann passieren, dass Excel komplett abstüzrt, weiß wird und "keine Rückmeldung" ausgibt, bis der Code komplett durchgelaufen ist.

Bei folgendem Code-Abschnitt kommt es zu den Abstürzen:

Code:

    Dim i As Integer
        For i = 0 To 60
        zz2 = Round((4 - 1) * Rnd() + 1, 0)
        Tabelle1.Cells(14, 13).Value = zz2
        Tabelle1.Cells(2, 2 * zz2).Interior.ColorIndex = 6
        Sleep 50
        Tabelle1.Range("B2:H2").Interior.ColorIndex = 0
    Next i
    
    Dim j As Integer
    For j = 0 To 30
        zz2 = Round((4 - 1) * Rnd() + 1, 0)
        Tabelle1.Cells(14, 13).Value = zz2
        Tabelle1.Cells(2, 2 * zz2).Interior.ColorIndex = 6
        Sleep 100
        Tabelle1.Range("B2:H2").Interior.ColorIndex = 0
    Next j
    
    Dim k As Integer
    For k = 0 To 3
        zz2 = Round((4 - 1) * Rnd() + 1, 0)
        Tabelle1.Cells(14, 13).Value = zz2
        Tabelle1.Cells(2, 2 * zz2).Interior.ColorIndex = 6
        Sleep 500
        Tabelle1.Range("B2:H2").Interior.ColorIndex = 0
    Next k

Die For-Schleifen werden immer kürzer, dafür die Sleep-Zeit immer länger um eben die Spannung ein bisschen aufrecht zu erhalten. Ist die Kombination aus For-Schleife und Sleep das Problem oder gibt es generell eine rechenunaufwändigere Methode um so eine Art Glücksrad zu realisieren?

Vielen Dank schonmal
Poempel

 

Hallo,

ich habe deinen Codeausschnitt in eine SUB verpackt, die Variable "zz2" als Integer deklariert und auf Modulebene noch die "Sleep"-SUB aus der "kernel32.dll" (mittels bedingtem Compilercode) deklariert:

Code:

Option Explicit

#If VBA7 Then
  Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)
#Else
  Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
#End If

Sub test()

    Dim zz2 As Integer

    'Dein Code von vorhin
    '....

End Sub

und konnte kein Problem, was seinen Ablauf betreffen sollte, feststellen.
Ich habe ihn mehrmals laufen lassen.