ich habe eine Listbox mit doppelten Einträgen.
Hier ist mein Code:
Private Sub UserForm_Initialize()
Dim lZeile As Long
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
ListBox1.Clear
lZeile = 2
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1
Loop
Dim zeile As Long
With ActiveSheet
For zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
ListBox1.AddItem .Cells(zeile, 1).Text
ListBox1.List(zeile - 2, 1) = .Cells(zeile, 7)
Next zeile
End With
End Sub
Wenn ich diesen Code lösche
ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
sind die doppelten Einträge weg. Warum?
Kann mir das jemand Erklären?
Brauche ich die Code?
Danke schon mal im Voraus