ich möchte eine einzelne Zelle anklickbar machen. Wenn sie angeklickt wird, soll ein Makro aufgerufen werden, dass den Inhalt von dieser Zelle verändert.
Ist wahrscheinlich ganz einfach, aber ich bin zu blöd.
Danke für die Hilfe,
DerTobi
Sub Anklickbar()
Dim nName As Name
Set wbBok = ThisWorkbook
Each nName In wbBok.Names
On Error Resume Next
Set rnName = Nothing
Next nName
End
Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
c = Target.Column
r = Target.Row
If c = 1 And r = 1 Then
Cells(c, r) = "jetzt bin ich verändert"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$5" Then
'dein Makro
End If
End Sub