Optionbutton wertabhängig in UF aktivieren ...
21.01.2007 18:28:04
proxima05
ich habe in einem UF einen Rahmen, der ein Textfeld und drei Optionbuttons enthält. Das Textfeld gibt ein Rechenergebnis aus. Abhängig von diesem Wert möchte ich nun einen entsprechenden Optionsknopf akvtivieren. Ich habe es mit folgendem Code versucht, der aktiviert aber immer nur den ersten Knopf (auch wenn LengthC1 = ============================
Private Sub LengthC1_Change()
Dim LengthC1 As Integer
Select Case LengthC1
Case LengthC1 > 365
Long_1st = True
Case LengthC1 = 365
Y1_1 = True
Case LengthC1 < 365
BrokenPeriod = True
End Select
End Sub
============================
Was mache ich da falsch?
Danke für Tipp.
Ralph