bräuchte mal wieder Eure Hilfe.
Wenn ich in Zelle "A1" bin und die Taste Entf drücke, möchte ich ein Makro starten das mir den Inhalt von "A10" und "C12" löscht.
Danke für Eure Hilfe
Markus
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And IsEmpty(Target) Then
Application.EnableEvents = False
Cells(10, 1).Clear
Cells(12, 3).Clear
Application.EnableEvents = True
End If
End Sub
Gruess HansueliPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then If IsEmpty(Target) Then Call Makro1
End Sub
Sub Makro1()
Union(Cells(10, 1), Cells(12, 3)).ClearContents
End Sub