Pflichtfelder in Excel als Vorlage speichern
19.01.2015 14:01:10
Andre
Hallo,
ich habe folgenden VBA Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Tabelle1").Range("C7") = "" Then
MsgBox "Bitte füllen Sie den Kundennamen aus !"
Cancel = True
End If
If Worksheets("Tabelle1").Range("C11") = "-- bitte wählen --" Then
MsgBox "Bitte füllen Sie den Grund des Besuchs aus !"
Cancel = True
End If
If Worksheets("Tabelle1").Range("C13") = "" Then
MsgBox "Bitte füllen Sie die Gesprächsnotizen aus !"
Cancel = True
End If
If Worksheets("Tabelle1").Range("C19") = "" Then
MsgBox "Bitte füllen Sie die Vereinbarungen aus !"
Cancel = True
End If
End Sub
Wie bekomme ich es hin, dass ich eine Vorlagendatei ohne ausgefüllte Felder speichern kann? Ich bekomme natürlich immer eine Fehlermeldung beim Speichern, da er ja abfragt. Und muss ich zwingend diese Pflichfeldprüfung als XLSM speichern oder ist das auch in einer XLS / XLSX möglich?
Danke und Grüße
André