ich habe eine Excel-Datei mit mehreren Tabellen.
Ich möchte gern, dass Excel mich vor jeder Zelleingabe in den Tabellen fragt, ob ich diese wirklich ändern möchte.
Dies ist sicher nur per VBA möglich.
Gibt es hierfür eine Problemlösung?
Gruß
Enrico
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If MsgBox("Tabelle " & sh.Name & vbLf & "Zelle(n) " & Target.Address & vbLf & vbLf & "Wirklich ä _
ndern?", vbYesNo + vbQuestion, "Inhalt ändern") = vbNo Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If MsgBox("Tabelle " & sh.Name & vbLf & "Zelle(n) " & Target.Address & vbLf & vbLf & _
"Wirklich ändern?", vbYesNo + vbQuestion, "Inhalt ändern") = vbNo Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub
Gruß Rolf