Die folgende Sub kannst du von jeder Stelle, z. B. vor dem Löschen oder Speichern, mit "call Pruefe" aufrufen.
###################################################################################
Sub Pruefe()
'
' Alle Felder eingetragen?
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
'
' Welches Blatt?
MsgBox "Überprüfung erfolgreich.", vbInformation, "Prüfung"
MsgBox "für den Eintrag ist gerade das folgende Blatt aktiviert:" & vbNewLine & _
ActiveSheet.Name
End Sub
|