Private Sub Label18_Click()
If Label18_Click.Value > Label1_Click.Caption Then
Label18_Click.Caption = 24
End If
End Sub
Vielen Dank für die Hilfe!
Gruss Reto
Private Sub Label18_Click()
If Label18_Click.Value > Label1_Click.Caption Then
Label18_Click.Caption = 24
End If
End Sub
Vielen Dank für die Hilfe!
Gruss Reto
Private Sub Label18_Click()
If Label18.Value > Label1.Caption Then
Label18.Caption = 24
End If
End Sub
Gruß
Dierk
Private Sub Label18_Click()
If Label1.Caption > 1 Then
Label18.Caption = 66
End If
End Sub
Es passiert eifach nichts bei mir..
Gruss Reto
Private Sub Label18_Click()
If Cint(Label1.Cation) > 1 Then
Label18.Caption = 66
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Label1_Click()
Dim wert1 As Integer
wert1 = Int((15 * Rnd) + 1)
Randomize
Label1.Caption = wert1
End Sub
Private Sub Label18_Click()
If Label1.Caption > 1 Then
Label18.Caption = 66
End If
End Sub
Private Sub UserForm_Activate()
Label1_Click
End Sub
ich habe eine Userform mit zwei bezeichnungsfeldern
auf dem einen wird per zufall eine Zahl generiert, auf dem anderen, soll wenn die zufällig generierte zahl grösser ist als 1 eine "66" kommen
müsste jetzt logischerweise für jede zahl eine 66 kommen, kommt aber rein gar nichts.
vielen dank für die hilfe!
lg Reto
Private Sub Label18_Click()
If Cint(Label1.Cation) > 1 Then
Label18.Caption = 66
End If
End Sub