Sub mdlEingabe()
If Worksheets("Hauptmenü").Cells(3, 7).Value = "" _
Then MsgBox "Es muss ein Kursdatum eingetragen sein!", vbCritical, "Eingabefehler!"
Worksheets("Hauptmenü").Cells(3, 7).Select
Exit Sub
ElseIf Worksheets("Hauptmenü").Cells(4, 7).Value = "" _
Then MsgBox "Es muss ein Dozent eingetragen sein!", vbCritical, "Eingabefehler!"
Worksheets("Hauptmenü").Cells(4, 7).Select
Exit Sub
ElseIf Worksheets("Hauptmenü").Cells(5, 7).Value = "" _
Then MsgBox "Es muss eine Kursnummer eingetragen sein!", vbCritical, "Eingabefehler!"
Worksheets("Hauptmenü").Cells(5, 7).Select
Exit Sub
ElseIf Worksheets("Hauptmenü").Cells(6, 7).Value = "" _
Then MsgBox "Es muss eine Teilnehmerzahl eingetragen sein!", vbCritical, "Eingabefehler!"
Worksheets("Hauptmenü").Cells(6, 7).Select
Exit Sub
Else
formEingabe.Show
End If
End Sub