ComboBox schreibt nicht in Zelle zurück ...

Private Sub WKN_ISIN_DropbuttonClick()
Dim Bereich As Range
Set Bereich = ActiveWorkbook.Worksheets("Cash Flow").Range("AA2:AA16")
Dim i As Integer
Dim Daten As Variant
With WKN_ISIN
.Clear
'Daten holen
Daten = Bereich
'sortieren
Call QuickSort_Feld(Daten, LBound(Daten, 1), UBound(Daten, 1), False)
'schreiben
For i = LBound(Daten) To UBound(Daten)
If Daten(i, 1) <> "" Then
.AddItem (Daten(i, 1))
End If
Next i
End With
End Sub

Private Sub QuickSort_Feld(DasFeld, StartUnten, EndeOben, Absteigend As Boolean)
Dim iUnten As Long, iOben, iMitte, y
iUnten = StartUnten
iOben = EndeOben
iMitte = DasFeld((StartUnten + EndeOben) / 2, 1)
While (iUnten <= iOben)
If Not Absteigend Then
While (DasFeld(iUnten, 1) < iMitte And iUnten < EndeOben)
iUnten = iUnten + 1
Wend
While (iMitte < DasFeld(iOben, 1) And iOben > StartUnten)
iOben = iOben - 1
Wend
Else
While (DasFeld(iUnten, 1) > iMitte And iUnten < EndeOben)
iUnten = iUnten + 1
Wend
While (iMitte > DasFeld(iOben, 1) And iOben > StartUnten)
iOben = iOben - 1
Wend
End If
If (iUnten <= iOben) Then
y = DasFeld(iUnten, 1)
DasFeld(iUnten, 1) = DasFeld(iOben, 1)
DasFeld(iOben, 1) = y
iUnten = iUnten + 1
iOben = iOben - 1
End If
Wend
If (StartUnten < iOben) Then Call QuickSort_Feld(DasFeld, StartUnten, iOben, Absteigend)
If (iUnten < EndeOben) Then Call QuickSort_Feld(DasFeld, iUnten, EndeOben, Absteigend)
End Sub