Comboboxen Dynamisch füllen *die 2te

Private Sub ComboBox1_Change()
Dim Daten1 As Variant
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim rng1 As Range
Dim arr1
Dim z1 As Integer
Dim LS1 As Integer
LS1 = Sheets("Task-Text").Cells(Rows.Count, 1).End(xlUp).Row - 1
ReDim Daten1(LS1, 1)
ComboBox2.Clear
Set Bereich1 = Sheets("Task-ID").Range("B1:AA1")
Set rng1 = Bereich1.Find(ComboBox1.Text)
If Not rng1 Is Nothing Then
arr1 = Sheets("Task-ID").Range(rng1.Offset(1, 0), rng1.End(xlDown))
With ComboBox2
.List = WorksheetFunction.Transpose(arr1)
.ListIndex = 0
For z1 = 0 To LS1
Set Bereich2 = Sheets("Task-Text").Columns(1)
Set rng2 = Bereich2.Find(ComboBox2.Text)
Daten1(z1, 0) = Sheets("Task-Text").Cells(1, z1 + 2)
If Not rng2 Is Nothing Then
Daten1(z1, 1) = Sheets("Task-Text").Columns(2).Find(ComboBox2.Text).Cells(1, z1)
Else
Daten1(z1, 1) = ""
End If
Next
End With
End If
End Sub