Image1 klick in Userform1 Anzeigen

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UserForm1.Lst_Treffer.Text = BildName ''''''''''''Statt Text müsste da was anderes rein wert aus Tabelle1 Spate B in Listbox Lst_Treffer suchen finden und Bild ausgeben, UserForm1.Show End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim lngIndex As Long Call Load(Object:=UserForm1) With UserForm1 With .Lst_Treffer For lngIndex = 0 To .ListCount - 1 If .List(lngIndex, 0) = BildName Then .ListIndex = lngIndex Exit For End If Next End With Call .Show End With End Sub

Servus und Danke
Funktioniert ohne Fehler aber es wird nicht dieses Bild angezeigt das ich in Tabelle1 anklicke!
Ich habe da schon verschiedene Varianten versucht aber die Userform1 startet fast immer mit der Auswahl 20
Lst_Treffer.ListIndex = 0 nützt da gar nichts ob aktiviert oder deaktiviert.
Sub UserForm_Activate()
Lst_Treffer.ListIndex = 0
End Sub


Private Sub UserForm_Initialize()
Dim lngptrHwnd As LongPtr, lngptrStyle As LongPtr
Dim objArrayList As Object
Dim lngColumn As Long
Top = -23
Call Lst_Treffer_befüllen
'Listbox Treffer Spalten einstellen
With Lst_Treffer
.ColumnCount = 5
.ColumnHeads = False
.ColumnWidths = "6cm;6cm;1,7cm;1,2cm;3,2cm"
End With
End Sub

Ich denke es liegt an der Befüllung der Listbox
'Befüllung der LST_Treffer Listbox


Private Sub Lst_Treffer_befüllen(Optional ByVal Ftext As String = vbNullString)
Dim lngRow As Long, ialngIndex As Long
Dim avntValus As Variant
Dim astrValues() As String
With Worksheets("FilmDb")
avntValus = .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 8)).Value
For lngRow = LBound(avntValus, 1) To UBound(avntValus, 1)
If Ftext = vbNullString Or InStr(1, avntValus(lngRow, 1) & avntValus(lngRow, 2) & avntValus(lngRow, 3) & _
avntValus(lngRow, 6) & avntValus(lngRow, 7) & avntValus(lngRow, 8), Ftext, vbTextCompare) > 0 Then
ReDim Preserve astrValues(6, ialngIndex)
astrValues(0, ialngIndex) = avntValus(lngRow, 1)
astrValues(1, ialngIndex) = avntValus(lngRow, 2)
astrValues(2, ialngIndex) = avntValus(lngRow, 3)
astrValues(3, ialngIndex) = avntValus(lngRow, 4)
astrValues(4, ialngIndex) = avntValus(lngRow, 6)
astrValues(5, ialngIndex) = avntValus(lngRow, 7)
astrValues(6, ialngIndex) = avntValus(lngRow, 8)
ialngIndex = ialngIndex + 1
End If
Next
End With
If ialngIndex > 0 Then
Lst_Treffer.Column = astrValues
Else
Call Lst_Treffer.Clear
End If
End Sub

Also der Bildname kommt aus Tabelle1 Spalte 2

Beliebteste Forumthreads (12 Monate)

Image1 klick in Userform1 Anzeigen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Image1 klick in Userform1 Anzeigen

4 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)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread