Keziah
01-17-2017, 05:44 AM
Dear Community,
I have the following issue. My code works however in order to activate it I have to press the button twice. I checked it with a toggle button and a commandbutton, still no change.
Option Explicit
Dim result As String
Dim score As String
Private Sub CommandButton1_Click()
Range("B1").Value = result
score = Range("A1").Value
Select Case score
Case Is = "Abnehmen"
result = "Da wo ein Wille ist auch ein Weg, viel Erfolg beim Abnehmen"
Case Is = "Zunehmen"
result = "No Pain no Gain, viel Erfolg beim Zunehmen"
Case Is = "Halten"
result = "Top, scheint so als hättest du dein Ideal Gewicht gefunden"
End Select
End Sub
Maybe one of you can help me with this problem
Cheers,
Keziah
I have the following issue. My code works however in order to activate it I have to press the button twice. I checked it with a toggle button and a commandbutton, still no change.
Option Explicit
Dim result As String
Dim score As String
Private Sub CommandButton1_Click()
Range("B1").Value = result
score = Range("A1").Value
Select Case score
Case Is = "Abnehmen"
result = "Da wo ein Wille ist auch ein Weg, viel Erfolg beim Abnehmen"
Case Is = "Zunehmen"
result = "No Pain no Gain, viel Erfolg beim Zunehmen"
Case Is = "Halten"
result = "Top, scheint so als hättest du dein Ideal Gewicht gefunden"
End Select
End Sub
Maybe one of you can help me with this problem
Cheers,
Keziah