Hallo,
ich möchte gerne, das beim speichern oder Schliessen einer Datei geprüft wird, ob die Werte zweier Zellen identisch sind. Sind sie es nicht, soll eine Warnung erscheinen.
Wie kriege ich das am besten hin?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A1") Range("B1") Then
Cancel = True
MsgBox "Werte unterscheiden sich...."
Else
ActiveWorkbook.Close
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1") Range("B1") Then
Cancel = True
MsgBox "Werte unterscheiden sich...."
Else
ActiveWorkbook.Save
End If
End Sub
Die Zellen, die Du vergleichen möchtest, musst Du dann anpassen.
Gruß aus dem Sauerland
Jens
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen