Pflichtfeld erstellen

[cuba]

Hallo Forum

Wie kann ich in Excel 2013 ein Pflichfeld erstellen, ohne das ich das Doku nicht abspeichern kann?

LG

cuba

[RPP63]

Hallo!

Code:

Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Hier fragst Du ab, ob DeineZelle "Not IsEmpty(DeineZelle)" ist.

Gruß Ralf

[cuba]

Hallo Ralf

Vielen Dank für Deine Hilfe, nur: ich stehe da etwas auf dem Schlauch....

Wie sieht das auf in Bezug auf die Zelle B1.

Wie sieht es aus, wenn z.B. A15, B16, C22, etc. dazukommen würden?

LG
cuba

[schauan]

Hallo cuba,

Du kannst ja mehrere Zellen abfragen. Und dann fragst Du eventuell nicht, ob die Zellen leer sind, sondern prüfst, was drin steht.

Da gibt es verschiedene Wege.
Wenn in A15 "X, in B16 "Y" und in C22 "Z" stehen soll, dann prüfst Du entweder die 3 Zellen getrennt
If Range("A15") <> "X" Or Range("B16")<>"Y" ... Then Cancel = True
oder
If Range("A15") & Range("B16") & ... <> "XYZ" Then Cancel = True

Dadurch wird das Speichern einfach abgebrochen bzw. nicht ausgeführt. Netterweise gibst Du dem User eventuell noch eine entsprechende Meldung aus.

[schauan]

Hallo Cuba,

hier mal zur Ergänzung der komplette code mit einem Hinweis zur ersten Variante. Der code kommt in das Codemodul von DieseArbeitsmappe.

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Wenn eine Bedngung erfuellt sein muss, dann Or. Fuer alle And nehmen.
If Range("A15") = "X" Or Range("B16") = "Y" Or Range("C22") = "Z" Then Cancel = True
End Sub

[cuba]

Hallo Cuba,

hier mal zur Ergänzung der komplette code mit einem Hinweis zur ersten Variante. Der code kommt in das Codemodul von DieseArbeitsmappe.

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Wenn eine Bedngung erfuellt sein muss, dann Or. Fuer alle And nehmen.
If Range("A15") = "X" Or Range("B16") = "Y" Or Range("C22") = "Z" Then Cancel = True
End Sub

Vielen Dank Euch allen!

LG
cuba