Speichern nur, wenn Pflichtfelder ausgefüllt
15.09.2005 10:02:44
Michael
Ich habe ein Problem beim Speichern der Datei!
Ich habe einen Fragebogen entwickelt, in dem Pflichtfelder festgelegt sind.
Nun möchte ich, daß die Datei nur gespeichert werden kann, wenn alle Felder ausgefüllt sind.
Einen Code hab ich auch schon, der funktioniert aber nicht richtig:
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If TextBox2 = "" Then
Cancel = True
MsgBox "Sie müssen noch Ihren Namen angeben!"
If TextBox3 = "" Then
Cancel = True
MsgBox "Sie müssen noch Ihre Firma angeben!"
If IsEmpty(TextBox4) Then Cancel = True
MsgBox "Sie müssen noch Ihre Position abgeben!"
If TextBox5 = "" Then Cancel = True
MsgBox "Sie müssen noch Ihre Strasse und Hausnummer angegeben!"
If TextBox6 = "" Then Cancel = True
MsgBox "Sie müssen noch Ihre PLZ und den Ort angeben!"
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False And OptionButton4 = False And OptionButton5 = False Then
Cancel = True
MsgBox "Sie müssen noch Frage 1 beantworten!"
End If
End If
End If
End If
End Sub
Wenn ich auf Speichern klicke bekomm ich immer eine MsbBox, daß die Felder noch auszufüllen sind, obwohl schon etwas drinsteht!
Für eure Hilfe bedanke ich mich schonmal im voraus!
Gruss Michael