Prüfschleife
22.07.2008 10:07:00
Christian
habe folgende Prüfschleife inzeniert:
...
If ComboBox1.Value "Depotunterlagen unvollständig" Or ComboBox1.Value "Nennwert falsch" Then
MsgBox ("Bitte benutzen Sie ausschließlich " + Chr(13) + "die vorgegebenen Stornogründe ! ! !"): ComboBox1.SetFocus
Exit Sub
Else: GoTo Eintragen
End If
Exit Sub
Resume Next
Eintragen:
...
leider geht excell danach nicht zum Eintragen über, sondern gibt immer wieder das Meldefenster aus.
kann jemand helfen ?
Gruß Christian