Fehler: UserForm startet bei Klick auf alle Zellen
17.04.2018 09:26:29
Idence
ich habe folgenden Code erstellt, der bewirken soll, dass bei einem Rechtsklick auf einen bestimmten Bereich der Tabelle eine UserForm aufgerufen wird. Komischerweise öffnet sich dieses auch bei einem Klick auf alle anderen Zellen. Das kann ich leider nicht nachvollziehen.
Hat jemand eine Idee?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = "4" And Target.row > 2 Then
Eingabetool.Vorschau = Target
ElseIf Target.Column = "10" And Target.row > 2 Then
ActiveCell.Offset(0, -6).Activate
Eingabetool.Vorschau = ActiveCell.Value
End If
ActiveCell.Offset(0, 6).Activate
Eingabetool.Termin = ActiveCell.Value
ActiveCell.Offset(0, -6).Activate
Eingabetool.Eingabe = Date & ": "
Call Eingabetool.Show
Cancel = True
End Sub
Gruß
Idence