habe hier ein kleines problem mit meiner Listbox. hier mal der Code.
Private Sub UserForm_Initialize()
With Me.listbox
Dim rngC As Range
Dim rngZelle As Range
Dim rngZelle1 As Range
listbox.Clear
For Each rngC In Range(Cells(ActiveCell.Row, 11), Cells(ActiveCell.Row, 22))
If Len(rngC) Then
With listbox
.AddItem rngC.Value
.Selected(.ListCount - 1) = True
End With
End If
Next
For Each rngZelle In Worksheets("daten").Range("E5:E392")
If IsEmpty(rngZelle) Then Exit Sub
Me.listbox.AddItem rngZelle.Value
Next rngZelle
End With
With Me.ListBox1
For Each rngZelle In Worksheets("daten").Range("I5:I392")
If IsEmpty(rngZelle) Then Exit Sub
Me.ListBox1.AddItem rngZelle.Value
Next rngZelle
End With
End Sub
Zu meinem Problem, das Einlesen der Werte funktioniert, nur sollen keine doppelten Einträge vorhanden sein, bzw. die Wwerte aus der ersten Schleife sollen markiert sein.Hat jemand eine Idee das der doppelte Eintrag rauskommt und nur einer markiert wird?
Danke schon mal für Eure Zeit.