Prüfung beim Speichern
27.05.2020 12:14:31
Nancy
ich möchte gerne, beim Speichern eine Prüfung starten lassen,
Die Prüfung soll lauten " wenn in Spalte D Zeile 12 - 104 ein Eintrag ist und in der gleichen Zeile Spalte H ein Eintrag fehlt, soll ein Popupp mit der Information kommen"
also es werden nicht immer alle Zeilen der Spalte D ausgefüllt, aber wenn, dann ist es zwingend notwendig, dass die Spalte H in der gleichen Zeile einen Eintrag hat.
Und die Zellen D116 und D117 dürfen beide nicht gleichzeitig "Ja" enthalten
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
For i = 12 To 104
Cancel = True
If Bestellung.Cells(4, i) "" And Bestellung.Cells(8, i) = "" Then
msg (" in der Spalte H Zeile " & i & " fehlt eine Eingabe")
End If
Next
If Bestellung.Cells(4, 116) = "Ja" And Bestellung.Cells(4, 118) = "Ja" _
_
Then
msg (" bitte Eingabe in Zelle D116 und D117 prüfen, sie dürfen nicht beide Ja enthalten")
End If
End Sub