1x klicken Bild anzeigen Doppklick
19.04.2021 14:32:25
Benedikt
Meine UF hat eine Listbox und eine Image 1
Beim anklicken in die Listbox erscheint das Bild zum Artikel und dieser wird in die Datei eingefügt.
Besteht die Möglichkeit bei einmal Klicken in die Listbox nur das Bild angezeigt wird und erst wenn Doppelklick gemacht wird der Artikel in die Datei eingefügt wird
Im Moment wird bei einmal klicken das Bild angezeigt und das Ereignis ausgelöst
Private Sub ListBox1_Click() ' Einfügen nächste freie Zelle in definiertem Bereich
Dim ze, sp
ze = 39
sp = 2
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
While Cells(ze, sp) ""
ze = ze + 1
Wend
Cells(ze, sp) = ListBox1.List(i)
End If
Next i
If Dir$("C:\Users\Benedikt Muster\Pictures\" & ListBox1.Text & ".jpg") vbNullString Then _
Set Image1.Picture = LoadPicture("C:\Users\Benedikt Muster\Pictures\" & ListBox1.Text & ".jpg")
End Sub