Wenn-Abfrage und MsgBox-Meldung
26.03.2008 15:50:00
Bernd
ich habe wirklich im Archiv gesucht, aber bei den hunderten von Msg-Box-Einträgen nichts gefunden (o.k., alle habe ich auch nicht durchgesehen :-))
Mein Problem:
Ich frage den Inhalt einer Zelle ab und hätte gerne, dass dann, wenn die Zelle leer ist, die MsgBox kommt und zur Zelle mit dem Namen "PersNr" gesprungen wird. Steht was drinnen, dann soll die Datei geschlossen werden. Mit nachstehendem Code wird die Datei geschlossen, obwohl nichts in der relevanten Zelle steht.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim iClick As Integer
If Range("PersNr") = "" Then
iClick = MsgBox("Die Personalnummer ist zwingend erforderlich", _
vbOKOnly, ">>> Sie haben die Peronalnummer nicht eingetragen!
Danke für Eure Hilfe
Grüße
Bernd