Eingaben erzwingen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Eingaben erzwingen
von: Peter
Geschrieben am: 15.05.2002 - 17:02:06

tut mir leid, das die Frage ein bischen mangelhaft formuliert ist.
Wenn jemand die Datei speichern, drucken oder faxen will, soll eine MSGBox aufgehen, in der darauf hingewiesen wird das z.B. in F23 das Datum fehlt oder in K44 eine Kontrollziffer fehlt.

Gruß Peter


nach oben   nach unten

Re: Eingaben erzwingen
von: GraFri
Geschrieben am: 15.05.2002 - 17:30:28

Hallo

Für die Ereignisse 'Drucken' und 'Speichern'. Code in Dekleration 'DieseArbeitsmappe'


Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call Zellen_abfragen
    Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call Zellen_abfragen
    Cancel = True
End Sub

Sub Zellen_abfragen()
Dim dB

' Blatt anpassen
Set dB = Worksheets("Tabelle1")

If IsDate(dB.[F23]) = False And dB.[K44].Value = "" Then
    MsgBox "In der Zelle 'F23' ist kein gültiges Datum eingetragen und" & vbCrLf & _
           "in der Zelle 'K44' fehlt die Kontrollziffer. Bitte geben Sie" & vbCrLf & _
           "diese Werte ein."
    Exit Sub
End If

If IsDate(dB.[F23]) = False Then
    MsgBox "In der Zelle 'F23' ist kein gültiges Datum eingetragen." & vbCrLf & _
           "Bitte geben Sie ein Datum ein."
    Exit Sub
End If

If dB.[K44].Value = "" Then
    MsgBox "In der Zelle 'K44' fehlt die Kontrollziffer." & vbCrLf & _
           "Bitte geben Sie diese ein."
    Exit Sub
End If

End Sub

mfg, GraFri


nach oben   nach unten

Korrektur
von: GraFri
Geschrieben am: 15.05.2002 - 17:38:28

Hallo

Hat sich leider ein Fehler eingeschlichen. Hier der korregierte Code.


Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call Zellen_abfragen
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call Zellen_abfragen
End Sub

Sub Zellen_abfragen()
Dim dB
Dim Cancel  As Boolean

' Blatt anpassen
Set dB = Worksheets("Tabelle1")

If IsDate(dB.[F23]) = False And dB.[K44].Value = "" Then
    MsgBox "In der Zelle 'F23' ist kein gültiges Datum eingetragen und" & vbCrLf & _
           "in der Zelle 'K44' fehlt die Kontrollziffer. Bitte geben Sie" & vbCrLf & _
           "diese Werte ein."
    Cancel = True
    Exit Sub
End If

If IsDate(dB.[F23]) = False Then
    MsgBox "In der Zelle 'F23' ist kein gültiges Datum eingetragen." & vbCrLf & _
           "Bitte geben Sie ein Datum ein."
    Cancel = True
    Exit Sub
End If

If dB.[K44].Value = "" Then
    MsgBox "In der Zelle 'K44' fehlt die Kontrollziffer." & vbCrLf & _
           "Bitte geben Sie diese ein."
    Cancel = True
    Exit Sub
End If
    
Cancel = False

End Sub

mfg, GraFri


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Eingaben erzwingen"