Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nur speichern, wenn alle Formularfelder ausgefüllt sind

Gruppe

BeforeSave

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