meine ListBox wird wie folgt gefüllt:
Private Sub UserForm_Initialize()
Dim l As Long, c As Range
Set c = ActiveSheet.Cells(Rows.Count, 1)
l = c.Row: If IsEmpty(c) Then l = c.End(xlUp).Row
lstProdukt.RowSource = "A2:I" & l
End Sub
Mit folgendem Code lass ich mir die Daten in Labels und TextBoxen anzeigen:
Private Sub lstProdukt_Change()
If lstProdukt.ListIndex <> 0 Then
lblArtikel = Cells(lstProdukt.ListIndex + 2, 1)
lblBeschreibung = Cells(lstProdukt.ListIndex + 2, 2)
lblCuZahl = Cells(lstProdukt.ListIndex + 2, 3)
lbl = Cells(lstProdukt.ListIndex + 2, 4)
lblZuschlag = Cells(lstProdukt.ListIndex + 2, 5)
lblRechnungspreis = Cells(lstProdukt.ListIndex + 2, 6)
txtArtikel = Cells(lstProdukt.ListIndex + 2, 7)
txtBasisPreis = Cells(lstProdukt.ListIndex + 2, 8)
txtProduktFaktor = Cells(lstProdukt.ListIndex + 2, 9)
End If
End Sub
So weit klappt das auch prima, nur wenn ich den ersten Eintrag anklicke passiert gar nichts als ob der gar nicht da wäre, wenn ich ListIndex + 1 setze zeigt er mir die Daten um eins versetzt, also mit +2 klappt es für alle ausser den ersten Eintrag. Wer kann mir helfen?
Grüsse
Drazen