Commandbutton click
16.03.2015 09:46:07
Mathias
Er zählt schon +1 wenn ich alle togglebutton aktiviert habe :( und senn ich den commandbutton clicke nochmal
Private Sub CommandButton1_Click()
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1=
click Then
Range("C7").Value = Range("C7").Value + 1
End If
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And _
CommandButton1 = click Then
Range("I9").Value = Range("I9").Value + 1
End If
End Sub
Private Sub ToggleButton7_Click()
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And
CommandButton1 = click Then
Range("C7").Value = Range("C7").Value + 1
End If
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And
CommandButton1 = Click Then
Range("I9").Value = Range("I9").Value + 1
End If
End Sub
Private Sub ToggleButton13_Click()
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1 =
Click Then
Range("C7").Value = Range("C7").Value + 1
End If
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1 =
click Then
Range("I9").Value = Range("I9").Value + 1
End If
End Sub