
Ich brauche eine Routine, die erkennt, ob in einem Bereich auf eine Zelle geklickt wurde, und dann ein Makro ausführt. Ich habe das teilweise gelöst.
Mein Problem ist: Ich muss einen Wert umschalten, wenn die Zelle angeklickt wird, nicht, wenn die Zelle ausgewählt wird.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range(testRange) Is Nothing Then
'Cell was Clicked
End If
End Sub
funktioniert bei mir nur, solange die Zelle nicht ausgewählt ist.
Was kann ich tun? Gibt es eine Funktion, mit der man prüfen kann, ob ein Mausklick erfolgt ist und die Zelle ausgewählt wurde?
Antwort1
Angenommen, wir möchten ein Makro ausführen, das heißt, Hello()
wenn die ZelleB9angeklickt wird.
Wählen Sie zunächstB9und fügen Sie einen Hyperlink ein zuB9.
(wenn Sie hier klicken, springen Sie eigentlich nirgendwohin)
Fügen Sie dann im Codebereich des Arbeitsblatts Folgendes ein:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call Hello
End Sub