ListBox verhält sich nicht wie erwartet
23.03.2017 14:53:00
Manuel
Ich arbeite seit einigen Wochen an meinem ersten VBA Projekt. Bisher bin ich gut zurecht gekommen dank Google. Aber jetzt grade steh ich nen bisschen wie vor nem Wald ohne die Bäume zu sehen.
Ich poste mal den Code:
Public Sub Userform_Initialize()
lngLast = Worksheets(ActiveSheet.Name).Cells(Rows.Count, 2).End(xlUp).Row
If blnControl = True Then
For lngListbox = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(lngListbox) = True Then
For iOp1 = 3 To lngLast
If Cells(iOp1, 2) = UserForm1.ListBox1.List(lngListbox, 0) And Cells(iOp1, 3) = UserForm1. _
_
ListBox1.List(lngListbox, 1) Then
lngOperator = iOp1
End If
Next iOp1
End If
Next lngListbox
End If
If blnControl = False Then
lngRow = Application.Match(Druck.ComboBox1, Columns("B"), 0)
lngSystem = UserForm1.ComboBox2.ListIndex
lngOperator = lngRow + lngSystem
End If
For i = 0 To 4
UserForm3.ListBox1.AddItem
ListBox1.List(i, 0) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 9).Text
ListBox1.List(i, 1) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 10).Text
ListBox1.List(i, 0) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 11).Text
ListBox1.List(i, 1) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 12).Text
ListBox1.List(i, 0) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 13).Text
ListBox1.List(i, 1) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 14).Text
ListBox1.List(i, 0) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 15).Text
ListBox1.List(i, 1) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 16).Text
ListBox1.List(i, 0) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 18).Text
ListBox1.List(i, 1) = ThisWorkbook.Worksheets(ActiveSheet.Name).Cells(lngOperator, 19).Text
Next i
End Sub
Mein Problem ist, dass die ListBox jetzt 5mal den gleichen Eintrag zeigt und zwar den der letzten beiden .List- Zeilen.
Hat hier vllt jemand eine Idee Woran das liegen könnte?
Mit freundlichen Grüßen, der Manuel