Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Pflichfelder

Betrifft: Pflichfelder
von: Bob
Geschrieben am: 16.04.2003 - 13:22:47

Hallo nochmal,

habe vorher von Yal dieses Makro bekommen das auch sehr gut funktioniert, allerdings würde ich es gerne bei Workbook_BeforeClose(Cancel As Boolean) einbauen. Das Problem hierbei ist aber das er zwar die MsgBox bringt, dann aber doch schließt ohne das die Zelle bearbeitet werden kann.

Wie immer ein Danke an alle die sich bemühen das solche VBA-Laien, wie ich es bin, weiterkommen!

Hier das Makro:
Private Sub Worksheet_Deactivate()
If IsEmpty(Me.Range("c9")) Then
MsgBox "Im Zelle C9 ist eine Eingabe erforderlich!"
Me.Activate
Me.Range("C9").Select
End If
End Sub

  

Re: Pflichfelder
von: ChrisL
Geschrieben am: 16.04.2003 - 13:25:29

Hallo Bob

If....

msgbox etc.

Cancel = True
End If

Gruss
Chris

  

Re: Pflichfelder
von: Bob
Geschrieben am: 16.04.2003 - 13:33:12

Hi Chris,

super, funktioniert wunderbar. Danke!

Gruß
Bob

  

Re: Pflichfelder
von: Yal
Geschrieben am: 16.04.2003 - 13:35:22

Hallo Bob,

die Antwort deine Frage ist im HilfeThemen von VisualBasic. Suche im Index nach "BeforeClose-Ereignis"

Ebenso findest Du alles wissenswert über MsgBox.
Es wird so aussehen:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox ("Zelle C9 muss zuerst befüllt werden")
    Cancel = True
End Sub

Yal

  

Re: Pflichfelder
von: Bob
Geschrieben am: 16.04.2003 - 13:49:01

Danke Yal,

das mit der VBA-Hilfe ist sicher ein guter Tipp (hab gar nicht dran gedacht, da das hier im Forum so schnell geht).

Gruss
Bob

  

Online-Hilfe sollte immer der erste Gedanken sein!
von: Yal
Geschrieben am: 16.04.2003 - 13:54:42

Ohne die Online-Hilfe wäre ich ebenfalls sehr auf dem Forum angewiesen.