Sub Combo()
Sheets("Tabelle2").ComboBox2.List = Range(Cells(55, 10), Cells(99, 10)).Value
ComboBox2.ListIndex = 1
End Sub
Sub Combo()
' Sheets("Tabelle2").ComboBox1.ListFillRange = ""
Sheets("Tabelle2").ComboBox1.Clear
Sheets("Tabelle2").ComboBox1.List = Range(Cells(55, 10), Cells(99, 10)).Value
Sheets("Tabelle2").ComboBox1.ListIndex = 1
End Sub
Sub Combo()
Dim i As Integer
Sheets("Tabelle2").ComboBox2.Clear
For i = 4 To 48
If Cells(i, 10).Value "" Then
Sheets("Tabelle2").ComboBox2.AddItem Cells(i, 10).Value
End If
Next i
End Sub
Sub Combo()
Dim lngRow As Long
Sheets("Tabelle2").ComboBox2.Clear
For lngRow = 4 To 48
If Cells(lngRow, 10).Value "" Then
If WorksheetFunction.CountIf(Range(Cells(4, 10), Cells(lngRow, 10)), _
Cells(lngRow, 10)) = 1 Then
Sheets("Tabelle2").ComboBox2.AddItem Cells(lngRow, 10).Value
End If
End If
Next lngRow
End Sub