Geht um folgendes Makro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[OnClick] = Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
[OnClick] = Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
[OnClick].Value = Target.Range("A1").Value
Application.EnableEvents = True
End Sub
'oder - die von mir bevorzugte Version
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Range("OnClick").Value = Target.Range("A1").Value
Application.EnableEvents = True
End Sub
Gruß