Clever-Excel-Forum

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

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

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

Es funktioniert !!!

AlpenZwerg

Kuwer

AlpenZwerg