ich lese mit folgendem Code Inhalte von Zellen in eine zweispaltige Listbox ein:
Dim anf As Range
Dim fert As Range
Dim such As String
zeile = 0
lsbProd.ColumnCount = 2
such = comboProd.Value
For Each c In Sheets("Liste").Range("D21 :D1000")
If c.Value = such Then
Set anf = c.Offset(1, -1)
Set fert = c.Offset(70, -1)
Exit For
End If
Next c
For Each c In Range(anf, fert)
If c.Value = "" Then
Exit For
Else
lsbProd.AddItem c
lsbProd.List(zeile, 1) = c.Offset(0, 1)
zeile = zeile + 1
End If
Next c
Die erste Listbox-Spalte ist die Artikelnummer, die Zweite der
Artikelname.
Nun möchte ich aus den aufgelisteten Artikel einen auswählen und die Artikelnummer in einer Textbox erscheinen lassen.
Textbox1.value = lsbProd.value
Wie schaffe ich es, dass Value der listbox die erste Spalte ist.
Momentan wird mir in der Textbox der Artikelname(2. Spalte) und nicht die Artikelnummer(1.Spalte) angezeigt.
Kann mir jemand sagen wie es geht?
Vielen Dank im voraus
Michael