Moin Leute,

ich habe einen Fehler, den ich nicht ganz verstehe und echt ratlos bin. Oder ich seh den Wald vor lauter Bäumen nicht. xD

Was soll passieren:

Beim klicken auf einem Button soll das modul prüfen, ob in den Zellen 3,7 bis 4,7 in der Tabelle "Hauptmenü" etwas eingetragen wurde. Ansonsten soll er eine MsgBox öffnen mit einem hinweis und das modul an der stelle beenden, damit es nachgetragen werden kann. Ist in allen vier Zellen etwas eingetragen soll er das Formular "formEingabe" öffnen und der User kann weitermachen mit seiner Eingabe.

Mein erster Gedanke war es so zu lösen:

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

Ich bin mir eigentlich sicher die Syntax eingehalten zu haben, jedoch markiert er mir bei der Ausführung die erste ElseIf-Zeile und sagt mir "Fehler beim kompilieren: Else ohne If".

Ich dachte mir: na gut. Dann anders:

Sub mdlEingabe()

    If Worksheets("Hauptmenü").Cells(3, 7).Value = "" _
        Or Worksheets("Hauptmenü").Cells(4, 7).Value = "" _
        Or Worksheets("Hauptmenü").Cells(5, 7).Value = "" _
        Or Worksheets("Hauptmenü").Cells(6, 7).Value = "" _
        Then MsgBox "Es fehlen Kursparameter!", vbCritical, "Eingabefehler!"
            Exit Sub
        Else: formEingabe.Show
    End If

End Sub

Hier spuckt er den Selben Fehler aus.

Was übersehe ich? Wo steckt da der Fehler? =(

Liebe grüße und Danke im Voraus für die Mühe

gez.

Michael