BeforeDoubleClick
16.02.2005 08:18:28
Brit
Ich möchte nach Doppelklick ein Bild suchen und in die Tabelle einfügen!
Der Doppelklick darf aber nur für die Zellen in Spalte A zugelassen werden, da das Bild auch nur in diesen Zellen angezeigt werden soll!
Das folgende Makro erlaubt aber den Doppelklick in der ganzen Tabelle, was aber nicht zufriedenstellend ist.
Wie kann ich das beschränken?
Vielen Dank schon mal im Voraus!
Brit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim var As Variant
Dim sFiles As String
On Error Resume Next
var = Application.GetOpenFilename(sFiles)
ActiveSheet.Pictures.Insert var
End Sub