Office-Fragen.de

Normale Version: If Target.? = "Mitarbeiter" Then MsgBox ("Getroffen")
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Guten Abend allerseits, ich habe eine Tabelle im Bereich C4 - C13 erstellt und ihr den Namen "Mitarbeiter" gegeben. Per Doppelklick wird der Code ausgelöst und soll prüfen das Target in der Tabelle " Mitarbeiter" liegt.
Wie muss das Formuliert werden?

Danke
Stefan
Hallo,

versuche mal folgendes ...

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  If Not Intersect(Target, ActiveSheet.ListObjects("Mitarbeiter").DataBodyRange) Is Nothing Then
   
    MsgBox "Getroffen"
   
  End If
 
End Sub

Gruß
Danke, genau so sollte es sein :-)