Hallo tscharl.
habe es wie im Code geschrieben mit den änderungen probiert,
aber er makiert mir weiter das feld beim debuggen gelb von der ersten textbox ohne Wert.
Kannst du mir vieleicht erklären was die einzelnen schritte in diesem Code bedeuten,
als VBA Anfänger möchte ich gerne auch verstehen was da passsiert :).
DAnke für Deine Mühe :)
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