HERBERS Excel-Forum - die Beispiele

Thema: Nur speichern, wenn alle Formularfelder ausgefüllt sind

Home

Gruppe

Ereignis

Problem

Die Arbeitsmappe darf sich nur speichern lassen, wenn alle Eingabefelder ausgefüllt sind.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If WorksheetFunction.CountA( _
      Worksheets("Tabelle1").Range("D5,D7,D9,D11,D13")) < 5 Then
      Beep
      MsgBox "Bitte alle Eingabefelder ausfüllen!"
      Cancel = True
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeSave

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? Zeilen aus- einblenden als Ereignis?
Nur einmal Private Sub Workbook_BeforeSave Welches Ereignis ist das richtige ??
Application Object und WorkbookBeforeSave Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
"Verschlüsselung" mit _BeforeSave Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen? Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus select Ereigniss UF Show
Ereignis zeitweise mit Fehler Ereignismakro
Selectereigniss in Spalte doppeltes Klick-Ereignis
Doppelklick-Ereignis VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic change ereigniss nicht ausführen Userform
Exit Ereignis Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis? Dropdown Ereignis