24.08.2015, 14:09
24.08.2015, 15:52
Hallo!
Hier fragst Du ab, ob DeineZelle "Not IsEmpty(DeineZelle)" ist.
Gruß Ralf
Code:
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Hier fragst Du ab, ob DeineZelle "Not IsEmpty(DeineZelle)" ist.
Gruß Ralf
24.08.2015, 16:14
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
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
24.08.2015, 21:01
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.
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.
25.08.2015, 04:12
Hallo Cuba,
hier mal zur Ergänzung der komplette code mit einem Hinweis zur ersten Variante. Der code kommt in das Codemodul von DieseArbeitsmappe.
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 Sub25.08.2015, 16:09
(25.08.2015, 04: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