Makro anpassen - kann mir jemand helfen?

Computer: Software & Programmierung Visual Basic
#1

Hallo Experten könnte mir bitte jemand helfen. In einem Formular soll mithilfe einer Makro überprüft werden ob alle Felder ausgefüllt werden. Dazu habe ich eine simple Makro vorbereitet, die beim drücken auf „save“ überprüft ob im Feld „M2“ NOK=not OK steht und somit eine Error Message zeigt, oder das speichern erlaubt wenn OK steht. Folgendes habe ich eingegeben:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets(„ERROR SCREEN“)
If .Range(„M2“) = „NOK“ Then Cancel = True MsgBox „You can`t save. Please check your inputs on the ERROR SCREEN Worksheet.“
End If
End With
End Sub

Das hat alles super funktioniert - nur leider nutzen einige meiner Kollegen die Funktion „save&sent“ wo dann die Makro keinen Check durchführt und ich Formulare mit Errors erhalte. Könnte mir jemand die Erweiterung für die Marko geben so das der Check auch bei „save&sent“ durchgeführt wird?

Vielen Dank für eure Hilfe

Cheers Pete

#2

Hallo Pete,
da nützt es nichts, das Makro zu erweitern. Scheinbar tritt das Ereignis „Workbook.BeforeSave“ nicht auf, wenn die Funktion „Save&Send“ durchgeführt wird. Also musst Du Dir etwas anderes einfallen lassen. Du könntest z.B. eine Schaltfläche „Speichern“ in das Formular einbauen und Deinen Kollegen sagen, sie müssen diese Schaltfläche verwenden. Dann kannst Du die erforderlichen Abfragen wieder einbauen.
Gruß Dieter