Code soll Zelländerungen rückgängig machen
19.09.2006 21:10:45
Reinhard
ich möchte nach Änderungen die MsgBox mit dem Hinweis auf "Nur Gruppierungen erlaubt" erscheinen lassen und dabei auch den alten Zellzustand wiederherstellen.
Die Msgbox klappt, aber die alten Werte werden nicht wiederhergestellt:-(
In Tabelle1 steht:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ende
Application.EnableEvents = False
Merker.Copy Destination:=Target.Cells(1, 1)
MsgBox "nur Gruppierungen erlaubt"
MsgBox "CM" & Merker.Address
MsgBox "CT" & Target.Address
ende:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Set Merker = Target
MsgBox "SCM" & Merker.Address
MsgBox "SCT" & Target.Address
Application.EnableEvents = True
End Sub
In DieseArbeitsmappe steht:
Option Explicit
Private Sub Workbook_Open()
On Error GoTo ende
Application.EnableEvents = False
Set Merker = Range("A1")
Worksheets(2).Activate
Worksheets(1).Activate
Worksheets(1).Range("A1").Select
ende:
Application.EnableEvents = True
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..