If Target.? = "Mitarbeiter" Then MsgBox ("Getroffen")

[StefKe]

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

[maninweb]

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ß

[StefKe]

Danke, genau so sollte es sein :-)