Endlosschleife soll nicht sein
14.10.2004 09:00:37
Andreas
ich habe hier ein Problem mit einer Schleife, und zwar habe ich vier OptionButton´s in einem Formular denen je nach Auswahl ein Wert zugewiesen wird. Trifft der Anwender keine Auswahl dann kommt die Meldung, Auswahl treffen, und zwar so lange bis eine Auswahl getroffen wird, danach wird der Wert der Variable a zugewiesen wurde in eine Zelle übertragen und dann gehts weiter zum nächsten Formular bis alles durchlaufen ist.
Ist zwar schön, funktioniert bei mir leider nicht.
bin für jeden Tipp dankbar Gruss Andreas
Option Explicit
Dim meldung As String
Dim a As Integer
Private Sub OK_Click()
a = 0
Do
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 = 0 Then
meldung = "Sie müssen eine Auswahl treffen"
MsgBox meldung
End If
Exit Sub
Loop Until a = 0
Range("d7") = a
Unload Me
End Sub