Userform Listbox Zelle

[AlpenZwerg]

Hallo, ich habe ein Problem mit einer UserForm - Listbox - Zellenwahl.
Ich möchte aus einer Listbox mit Doppelklick auf eine Zelle kommen ?
Ich habe keine Lösung gefunden. kann mir jemand helfen ?

Private Sub UserForm_Initialize()
    Dim VarNameFam, VarNameVor, VarNameKat As String
    Dim VarZeiNumm, VarZeiQuel, VarZeiStat, VarZeiEnde, VarZeiStep As Long
    VarZeiStat = 2
    VarZeiEnde = Worksheets("Daten-Bild").UsedRange.Rows.Count
    VarZeiStep = 13
    For VarZeiNumm = VarZeiStat To VarZeiEnde Step VarZeiStep
        VarNameFam = Worksheets("Daten-Bild").Cells(VarZeiNumm, 4).Value
        VarNameVor = Worksheets("Daten-Bild").Cells(VarZeiNumm, 7).Value
        VarNameKat = Worksheets("Daten-Bild").Cells(VarZeiNumm, 10).Value
        If VarNameFam = "" Then
           Exit Sub
        End If
        ListBox1.AddItem
        ListBox1.List(ListBox1.ListCount - 1, 0) = VarNameFam
        ListBox1.List(ListBox1.ListCount - 1, 1) = VarNameVor
    Next VarZeiNumm
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'   Doppelklick in der ListBox1
    On Error Resume Next
  
'    Hier zur Zelle aus der ListBox1 ???

    Unload Me
End Sub

[Kuwer]

Hallo,

Option Explicit

Dim VarZeiStat

Private Sub UserForm_Initialize()
   Dim VarNameFam, VarNameVor, VarNameKat As String
   Dim VarZeiNumm, VarZeiQuel, VarZeiEnde, VarZeiStep As Long
   VarZeiStat = 2
   VarZeiEnde = Worksheets("Daten-Bild").UsedRange.Rows.Count
   VarZeiStep = 13
   For VarZeiNumm = VarZeiStat To VarZeiEnde Step VarZeiStep
       VarNameFam = Worksheets("Daten-Bild").Cells(VarZeiNumm, 4).Value
       VarNameVor = Worksheets("Daten-Bild").Cells(VarZeiNumm, 7).Value
       VarNameKat = Worksheets("Daten-Bild").Cells(VarZeiNumm, 10).Value
       If VarNameFam = "" Then
          Exit Sub
       End If
       ListBox1.AddItem
       ListBox1.List(ListBox1.ListCount - 1, 0) = VarNameFam
       ListBox1.List(ListBox1.ListCount - 1, 1) = VarNameVor
   Next VarZeiNumm
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'   Doppelklick in der ListBox1
 
'    Hier zur Zelle aus der ListBox1 ???
   Worksheets("Daten-Bild").Cells(ListBox1.ListIndex + VarZeiStat, 4).Select
   Unload Me
End Sub

Gruß Uwe

[AlpenZwerg]

Hallo und recht vielen Dank für die super schnelle Hilfe.

Es funktioniert !!!