Probleme mit mehrdimensionalem Array

Dim arr()               As String
lngEintrgasnummer = 0
For lngRowPatienten = 2 To Patientenliste.Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Patientenliste.Range("D2:D" & lngRowPatienten), _
Patientenliste.Cells(lngRowPatienten, 4)) = 1 Then
lngEintrgasnummer = lngEintrgasnummer + 1
ReDim Preserve arr(1 To 2, 1 To lngEintrgasnummer)
arr(1, lngEintrgasnummer) = Patientenliste.Cells(lngRowPatienten, 4)
arr(2, lngEintrgasnummer) = lngRowPatienten
End If
Next
With ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "4cm; 0cm"
If lngRowPatienten > 0 Then _
.List() = WorksheetFunction.Transpose(arr)
End With