VBA Problem
22.12.2021 09:37:04
Peter
EK meine 2.te Spalte
EK soll Pflichtfeld werden, sobald in Artikel was eingetragen wird
Speichern der Datei soll verhindert werden, sobald in Artikel was steht und das zugehörige Feld in EK leer ist.
Anbei mein Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Artikel As Range
Dim EK As Range
For Each Artikel In Worksheets("Test").Range("A2:A5")
If Artikel "" And EK.Offset(0, 1) = "" Then
MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
Cancel = True
Exit For
End If
Next
End Sub
https://www.herber.de/bbs/user/149944.xlsm