Dim sTemp() As String
Dim sItem() As String
Dim nCount As Long
Dim I As Long
 
<font color=green>' temporäres Array erzeugen</font>
nCount = UBound(Name)
ReDim sTemp(nCount)
For I = 1 To nCount
  sTemp(I) = Name(I) & vbTab & Vorname(I) & vbTab & Geburtstag(I)
Next I
 
<font color=green>' Array via QuickSort sortieren</font>
QuickSort sTemp(), 1, nCount
 
<font color=green>' Array jetzt wieder "auseinanderlegen"</font>
For I = 1 To nCount
  sItem = Split(sTemp(I), vbTab)
  Name(I) = sItem(0)
  Vorname(I) = sItem(1)
  Geburtstag(I) = sItem(2)
Next I
 
Erase sTemp
Erase sItem