AW: Listbox - Doppelte Einträge verhindern
16.12.2010 10:35:01
gerwas
Hallo Kay
in irgendeinem Beitrag hier im Forum habe mal diese geniale Idee gefunden (mußt du anpassen):
Private Sub UserForm_Initialize()
Dim col As New Collection
arow = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To arow
col.Add Cells(iRow, 1), Cells(iRow, 1) 'hier wird ein fehler erzeugt, wenn der eintrag _
bereitsvorhanden ist
If Err = 0 And Cells(iRow, 1).Value "TOTAL" Then
ComboBox1.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub