SelectionChange-Event nur bei Klick
20.12.2017 23:20:48
Markus
ich habe in einem Blatt folgenden Code, der auch funktioniert, wie geplant.
Gibt es hier eine Möglichkeit, das Event nur auf Mausklicks einzuschränken ?
Ich würde in meinem Fall gerne verhindern, dass das Event auch durch Drücken der Pfeiltasten bzw. der Entertaste ausgelöst wird (wenn man sich z.B. in der Zelle darüber oder daneben befindet).
Geht so etwas in VBA oder hat jemand sonst eine Idee dazu ?
Mein Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strComment As String, strTitle As String, strValue As String
If Target.Column = 11 Then
strValue = Right(Cells(Target.Row, Target.Column).Value, 5)
If strValue = "more" Then
strComment = Target.Offset(0, 2).Value
strTitle = "Comment"
MsgBox strComment, vbInformation, strTitle
End If
End If
End Sub
Vielen Dank im Voraus für Eure Hilfe, Markus