VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nur speichern, wenn alle Formularfelder ausgefüllt sind

Gruppe

Ereignis

Bereich

BeforeSave

Thema

Nur speichern, wenn alle Formularfelder ausgefüllt sind

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