gibt es eine Möglichkeit, wenn ich die Tabelle (Sheet) verlasse, das ich eine MSGBOX
bekomme, z.b. "Haben Sie Daten geändert ?" , dann ... sonst OK .
gr Kurt P
Public bChanged As Boolean
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
bChanged = False
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
bChanged = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim vAnswer As Variant
vAnswer = MsgBox("Haben Sie Daten geändert ?", vbYesNo, "Änderungen")
If vAnswer = vbYes Then
If bChanged Then
MsgBox "OK, Sie sagen die Wahrheit."
Else
MsgBox "Sie Schelm, sie haben gar nix geändert!"
End If
Else
If bChanged Then
MsgBox "ERWISCHT - Sie LügnerIn!"
Else
MsgBox "OK, Sie sagen die Wahrheit."
End If
End If
End Sub
GreetZ Renée
Public bChanged As Boolean
Private Sub Worksheet_Activate()
bChanged = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
bChanged = True
End Sub
Private Sub Worksheet_Deactivate()
Dim vAnswer As Variant
vAnswer = MsgBox("Haben Sie Daten geändert ?", vbYesNo, "Änderungen")
If vAnswer = vbYes Then
If bChanged Then
MsgBox "OK, Sie sagen die Wahrheit"
Else
MsgBox "Sie Schelm, sie haben gar nix geändert!"
End If
Else
If bChanged Then
MsgBox "ERWISCHT - Sie LügnerIn"
Else
MsgBox "OK, Sie sagen die Wahrheit"
End If
End If
End Sub
GreetZ Renée