Private Sub Workbook_Open()
Dim lngLast As Long, i As Long, bolda As Boolean, z As Long
Application.Calculation = xlCalculationManual
With Sheets("DVD")
lngLast = IIf(IsEmpty(.Cells(Rows.Count, 3)), .Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
End With
With Sheets("Suche")
.ComboBox1.AddItem Sheets("DVD").Cells(2, 3)
For i = 3 To lngLast
For z = 0 To .ComboBox1.ListCount - 1
.ComboBox1.ListIndex = z
If Sheets("DVD").Cells(i, 3) = .ComboBox1 Then
bolda = True
Exit For
End If
Next z
If bolda = False Then
.ComboBox1.AddItem Sheets("DVD").Cells(i, 3)
End If
bolda = False
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub
Hier nurmal für die Combobox1, die anderen kannst du ja selber anpassen (kommen in den gleichen COde Open mit gleicher Machart, aber natürlich unterschiedlichen Namen.
Gruß
Chris
Die Datei https://www.herber.de/bbs/user/52935.xls wurde aus Datenschutzgründen gelöscht