Registriert seit: 13.11.2014
Version(en): 2013
Hallo Forum
Wie kann ich in Excel 2013 ein Pflichfeld erstellen, ohne das ich das Doku nicht abspeichern kann?
LG
cuba
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
24.08.2015, 16:52
(Dieser Beitrag wurde zuletzt bearbeitet: 24.08.2015, 16:53 von RPP63.)
Hallo!
Code:
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Hier fragst Du ab, ob DeineZelle "Not IsEmpty(DeineZelle)" ist.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 13.11.2014
Version(en): 2013
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
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 13.11.2014
Version(en): 2013
(25.08.2015, 05:12)schauan schrieb: 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
