Aus Listbox Spalte als Wert zurück bekommen

Private Sub UserForm_Initialize()

Dim iCol As Integer, iColL As Integer, iLst As Integer

Dim sTxt As String

  iColL = ActiveSheet.Cells(1, 9) 'gibt Wert der letzten Spalte zurück

    For iCol = 19 To iColL  'Beginn ab Spalte 19

      If Cells(13, iCol).EntireColumn.Hidden = False Then

        If IsEmpty(Cells(13, iCol)) Then

          lstProdukte.AddItem Cells(2, iCol).Value

        Else

          lstProdukte.AddItem Cells(13, iCol).Value

        End If

      End If

      iCol = iCol + 1

    Next iCol

End Sub



Private Sub lstProdukte_Click()

'http://www.herber.de/forum/archiv/1448to1452/t1450466.htm

Dim iLst As Integer

  'Ausgewähltes Produkt als Empfehlung übernehmen

  For iLst = 0 To lstProdukte.ListCount - 1

    If lstProdukte.Selected(iLst) Then

       Tabelle1.Cells(1, 16) = (Wert Auswahl -1)

     End If

  Next iLst

End Sub