Combobox in Toolbox

Private Sub comboBox1_Change()
Range("AA37") = ComboBox1.Value
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim I As Integer
ComboBox1.Clear
For I = 3 To 40
ComboBox1.AddItem Sheets("xy").Cells(I, 1)
Next I
End Sub

Dein Vorschlag mit ComboBox1.Clear funktioniert nicht so richtig jedesmal wenn ich einen Eintrag auswähle, wird die Liste gelöscht.
Wie funktionierts richtig, das die Einträge nur einmal angezeigt werden.