Hallo,
ich habe gerade mit folgendem Coding in meiner Excel Datei zwei Felder als Pflichtfeld definiert. Hier soll beim speichern der Datei geprüft werden, ob ein Eintrag in dem Feld vorhanden ist. Wenn nicht, dann soll die Meldung "Bitte zuerst alle Pflichtfelder ausfüllen!" erscheinen.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rngPflicht As Range, rngBereich As Range
Dim intLeere As Integer
Set rngPflicht = [B3,K3]
For Each rngBereich In rngPflicht.Areas
intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
Next
If intLeere > 0 Then
Cancel = True
MsgBox "Bitte zuerst alle Pflichtfelder ausfüllen!", vbExclamation
End If
End Sub
Das funktioniert auch alles soweit, jedoch würde ich die Datei nun gerne erstmalig mit leeren Feldern speichern. Aufgrund des Codings wird dies jedoch nicht zugelassen. Habt ihr eine Idee wie ich die Datei gesichert bekomme?
Viele Grüße
Sebastian
|