AW: SpinButton löschen
24.02.2020 21:27:35
Volker
HALLO Werner, vielen Dank.
Das ist prima. Habe meine beiden Button angepasst, klappt hervorragend. Danke.
Bekommt man auch hin, dass das nur greift, wenn die Werte in (B9) und (I9) gleich sind.
( Gewinner ist wer zuerst drei Sätze hat. Wenn also 2:2 dann 5 Leg's, bzw. 2 Unterschied 1:3, oder 2:4, oder 3:5, 3:1, 4:2, 5:3.
gebe mal das ganze Skript bei.
Private Sub CommandButton1_Click()
Range("b9:c15,e9:f15,i9:j15,l9:m15").ClearContents
End Sub
Private Sub SpinButton1_SpinDown()
Range("e9") = Range("e9") - 1
If CInt(Range("e9").Value) = -1 Then _
Range("e9").Value = 0
If CInt(Range("e9").Value) = 3 Then _
Range("e9").Value = 0
End Sub
Private Sub SpinButton1_SpinUp()
Dim loZ?hler As Long
If UCase$(Range("G6")) = "X" Then
loZ?hler = 5
Else
loZ?hler = 3
End If
Range("e9") = Range("e9") + 1
If CInt(Range("e9").Value) = loZ?hler Then _
Range("l9").Value = 0
If CInt(Range("e9").Value) = loZ?hler Then _
Range("e9").Value = 0
If CInt(Range("e9").Value) = 0 Then _
Range("b9") = Range("b9") + 1
End Sub
Private Sub SpinButton2_SpinDown()
Range("l9") = Range("l9") - 1
If CInt(Range("l9").Value) = -1 Then _
Range("l9").Value = 0
If CInt(Range("l9").Value) = 3 Then _
Range("l9").Value = 0
End Sub
Private Sub SpinButton2_SpinUp()
Dim loZ?hler As Long
If UCase$(Range("G6")) = "X" Then
loZ?hler = 5
Else
loZ?hler = 3
End If
Range("l9") = Range("l9") + 1
If CInt(Range("e9").Value) = loZ?hler Then _
Range("e9").Value = 0
If CInt(Range("l9").Value) = loZ?hler Then _
Range("l9").Value = 0
If CInt(Range("l9").Value) = 0 Then _
Range("i9") = Range("i9") + 1
End Sub
mit bestem Dank Volker