Doppel klick hat kein Value

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strFilename As String Application.EnableEvents = False With UserForm1 ActiveWindow.ScrollRow = ActiveCell.Row Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelUserform1\" 'versuche hier verzweifelt einen Value zu bekommen strFilename = Dir$(FOLDER_PATH & objCell.Text & ".*") Set .Image24.Picture = Image1.Picture Call .Show End With Application.EnableEvents = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False With UserForm1 Lst_Treffer = Target 'hab ich versucht kommt aber Fehler Varible nicht definiert Set .Image24.Picture = Image1.Picture Call .Show End With Application.EnableEvents = True End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False With UserForm1 .Lst_Treffer = Target Set .Image24.Picture = Image1.Picture Call .Show End With Application.EnableEvents = True End Sub

Hi,
schau Dir mal die erste Zeile des Doppelklick-Ereignisses genau an:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dort gibt es 2 Variablen:
Target = Zelle, in der der Doppelklick ausgeführt wurde - eine Variable des Typs Range. Ist der Doppelklick z.B. in Zelle D1 erfolgt, dann enthält Target das Objekt (Range) D1 - mit allen zugehörigen Eigenschaften (.Value, .Interior, .Address etc. etc.)
Cancel - eine Variable des Typs Boolean - also WAHR (True) oder FALSCH (False). Ohne explizite Angabe ist der Wert FALSCH / False - bedeutet: Das Doppelklick-Ereignis wird nicht beendet - dadurch befindet sich die Zelle im Editiermodus. Das kann man verhindern, indem man diese Variable im Code explizit auf True stellt:


Cancel = True

Damit wird das Ereignis quasi "abgebrochen" - im Klartext: Der Editiermodus wird ausgeschaltet.
Zum Wirkungsbereich des Ereignisses: Diesen kann man z.B. mit der Intersect-Methode abfragen - man prüft also, ob es eine Überschneidung (=Intersect) zwischen Target und dem angegebenen Bereich (im Beispiel: B1:B100) gibt - in der Programmierung oft als "Wenn nicht ist nichts..." geschrieben:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
'hier kommt Dein gesamter Code
End If
End Sub

Wenn keine Überschneidung existiert, dann wird der Code auch nicht ausgeführt.
VG, Boris

Wauw Danke Super erklärt!
Muss es wahrscheinlich noch genau durcharbeiten aber ungefähr verstehe ich es.
So hab ich es jetzt aber es kommt immer wieder der gleiche Fehler wie vorhin und dann Excel Neustart.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
Cancel = True
Application.EnableEvents = False
With UserForm1
Set .Image24.Picture = Image1.Picture
.Lst_Treffer = Target
Call .Show
End With
Application.EnableEvents = True
End If
End Sub

Vielleicht hilft dieser Code weiter mit dem ich das Bild per klick in Spalte B auslese?
'Fügt immer ein Bild ein bei linksklick in Spalte B


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objCell As Range
Dim strFilename As String
Application.EnableEvents = False
Application.DisplayCommentIndicator = xlNoIndicator
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing And .Column = 2 Then .Comment.Visible = False
End With
Next
End If
ActiveWindow.ScrollRow = ActiveCell.Row
Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelUserform1\"
Set objCell = Target.Cells(1, 1)
If Not Intersect(objCell, Columns(2)) Is Nothing Then
strFilename = Dir$(FOLDER_PATH & objCell.Text & ".*")
If strFilename  vbNullString Then
With OLEObjects("Image1")
.Top = objCell.Top
.Left = objCell.Left + objCell.Width
.Visible = True
Set .Object.Picture = LoadPicture(Filename:=FOLDER_PATH & strFilename)
End With
Else
OLEObjects("Image1").Visible = False
End If
Else
OLEObjects("Image1").Visible = False
End If
Set objCell = Nothing
'Zeigt Markierte Zeile aus Spalte B in C1 an.
BildName = Target.Text
If Selection.Column = 2 Then
ActiveSheet.Range("C1").Value = Selection
Else: ActiveSheet.Range("C1").Value = ""
End If
Application.EnableEvents = True
End Sub

Gruß
Oraculix

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim x As Long If Not Intersect(Target, Range("B2:B5000")) Is Nothing Then Cancel = True Application.EnableEvents = False With UserForm1 Set .Image24.Picture = Image1.Picture For x = 1 To .Lst_Treffer.ListCount - 1 If .Lst_Treffer.List(x, 1) = Target Then .Lst_Treffer.Selected(x) = True Exit For End If Next x Call .Show End With Application.EnableEvents = True End If End Sub

Private Sub Image24_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim OpenFile As String Dim rngSuche As Range Set rngSuche = Worksheets("FilmeAnsehen").Columns(2).Find(Lst_Treffer.Value, LookAt:=xlPart) If Not rngSuche Is Nothing Then Me.Hide Application.Goto Reference:=rngSuche Else MsgBox "Titel nicht gefunden" End If Unload Me 'Wenn Abrechen gewählt wird Fehler abfangen On Error Resume Next ThisWorkbook.FollowHyperlink rngSuche.Hyperlinks(1).Address On Error Resume Next If OpenFile = False Then UserForm1.Show Exit Sub End If Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppel klick hat kein Value

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread