Hallo Tobias,
sorry, ich muss dich doch nochmal nerven. Es klappt alles wunderbar, doch mir ist jetzt aufgefallen, dass durch die Schleife, der If-Befehl unterbrochen wird. Es sollen ja vor Ausführung des eigentlichen Programmes einzelne Zustände geprüft werden, ob der User bei der Eintragung Fehler gemacht hat. Das Problem ist jetzt das durch die Schleife, das Programm nicht ausgeführt werden kann, weil der "Else"-Befehl nicht eingefügt werden kann. Ich hoffe, dass ich mich verständlich ausgedrückt habe.
Hast du vielleicht einen Tipp für mich?
Danke Dir!
Gruß
Marco
Dim iList As Long, bExist As Boolean
Dim iList2 As Long, bExist2 As Boolean
If IsNumeric(cbo_VomBox.Value) = False Or _
IsNumeric(cbo_BisBox.Value) = False Then
MsgBox "Bitte vordefiniertes Zahlenformat verwenden !"
ElseIf cbo_VomBox.Value (größer=) cbo_BisBox.Value Then
MsgBox "Vom-Datum ist größer als Bis-Datum !"
End If
For iList = 0 To cbo_VomBox.ListCount - 1
If cbo_VomBox = cbo_VomBox.List(iList) Then
bExist = True
End If
Next

If bExist = False Then
MsgBox "Eintrag ist nicht in der Liste enthalten !"
End If
For iList2 = 0 To cbo_BisBox.ListCount - 1
If cbo_BisBox = cbo_BisBox.List(iList2) Then
bExist2 = True
End If
Next

If bExist2 = False Then
MsgBox "Eintrag ist nicht in der Liste enthalten !"
---------------Wenn alles richtig jetzt Programm ausführen -----------------------------------
End If