Ich hab wieder eine Frage. Ich hab folgenden Code mit Eurer Hilfe erstellt.
Nur kommt dort noch etwas hinzu: Ich lasse zu Beginn eine Zahl über eine Textbox eingeben. Diese Textbox soll mit einem Wert in einer Zelle (C12) verglichen werden. Wenn jetzt das Ereignis (bei Case 1 To 9) "C12.value - Textbox12.value kleiner als 0" einritt, soll er diesen Case überspringen, zum nächsten springen und überprüfen, ob Q12.value - Textbox12.value kleiner als 0 ist usw... Geht das? Ich befürchte dafür müsste sich der Wert für c ändern, oder? Und der wird ja zufällig generiert.
Vielleicht weiß ja jemand Rat.
Private Sub Test()
Randomize
weiter:
c = CInt(85 * Rnd() + 1)
Select Case c
Case 1 To 9
If Cells(17, c) = "" Then
Cells(17, c) = "Vorschlag E9"
If c >= 1 And c <= 9 Then
Range("c12").Value = Range("c12").Value - TextBox12.Value
End If
GoTo ende
End If
Case 11 To 19
If Cells(17, c) = "" Then
Cells(17, c) = "Vorschlag E9"
If c >= 11 And c <= 19 Then
Range("q12").Value = Range("q12").Value - TextBox12.Value
End If
GoTo ende
End If
Case 28 To 36
If Cells(17, c) = "" Then
Cells(17, c) = "Vorschlag E9"
If c >= 11 And c <= 19 Then
Range("ac12").Value = Range("ac12").Value - TextBox12.Value
End If
GoTo ende
End If
End Sub
Gruß Thorsten