Schlaufe Do Loop
16.09.2004 08:21:10
Andreas
ich habe hier ein Formular mit 4 Auswahlmöglichkeiten die jeweils einen anderen Wert in Variable "a" speichern.
Jetzt sollte wenn keine Auswahl getroffen wird die Schlaufe so lange wiederholen bis eine der 4 Möglichkeiten ausgewählt wurde. Erst dann weiter Sprung zum nächsten Formular.
Wie muss ich die Schlaufe programmieren.
Private Sub OK_Click()
If OptionButton1 = True Then
a = 10
ElseIf OptionButton2 = True Then
a = 20
ElseIf OptionButton3 = True Then
a = 30
ElseIf OptionButton4 = True Then
a = 40
End If
If a < 1 Then
meldung = "Sie müssen eine Auswahl treffen"
MsgBox meldung
End If
Range(d7) = a
Me.Hide
End Sub
Danke für jeden Tipp.
Gruss Andreas