code vereinfachen ...ev mit schleife
27.01.2005 21:12:39
roland_k
habe da wieder mal gebastelt:
ich will dass ein optionbutton nicht aktiviert (true) gesetzt werden kann,
wenn in der textbox ....txtSpiel_Nr bestimmte zahl steht
Private Sub OptionButton19_Click()
If txtSpiel_NR = 1 Then MsgBox "keine eingabe"
If txtSpiel_NR = 1 Then OptionButton19 = False
If txtSpiel_NR = 5 Then MsgBox "keine eingabe"
If txtSpiel_NR = 5 Then OptionButton19 = False
If txtSpiel_NR = 9 Then MsgBox "keine eingabe"
If txtSpiel_NR = 9 Then OptionButton19 = False
If txtSpiel_NR = 13 Then MsgBox "keine eingabe"
If txtSpiel_NR = 13 Then OptionButton19 = False
If txtSpiel_NR = 17 Then MsgBox "keine eingabe"
If txtSpiel_NR = 17 Then OptionButton19 = False
If txtSpiel_NR = 21 Then MsgBox "keine eingabe"
If txtSpiel_NR = 21 Then OptionButton19 = False
End Sub
der code = verkürzt bei mir geht von 1-5-9..........(immer plus4) bis 45
wie kann ich das vereinfachen ?
muesste mit schleife gehn aber habe mir zähne ausgebissen :-((
danke im voraus
gruss roland