Danke für Eure Info und einen schönen Abend noch.
Liebe Grüße Ines
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then ' wirkt bei Doppelklick in 1 = SpalteA
Cancel = True
If MsgBox("soll Artikel" & Target.Value & "bestellt werden", vbYesNo, "Nachgefragt") = vbYes _
Then
'hier was du willst
End If
End If
End Sub