Sub Pruefe()
Dim c As Control
For Each c In Me.Controls
If Left(c.Name, 4) = "Bahn" Then
If c.Text = "?" Then
MsgBox "Eintrag nicht vollständig" & vbNewLine, vbCritical, "Fehler"
Exit Sub
End If
End If
Next
MsgBox "Überprüfung erfolgreich.", vbInformation, "Prüfung"
MsgBox "für den Eintrag ist gerade das folgende Blatt aktiviert:" & vbNewLine & _
ActiveSheet.Name
End Sub