Dim Trennung As Integer
Dim Frei As Integer
Dim Hilfe As Person
 
For Trennung = 1 To UBound(Mensch)
Hilfe = Mensch(Trennung)
Frei = Trennung
 
Do While (Frei > 1) And (Mensch(Frei - 1).Name [color=red]>[/color]Hilfe)  '
  Mensch(Frei) = Mensch(Frei - 1)    
Frei = Frei - 1   
 If Frei = 1 Then Exit Do
Loop
 
Mensch(Frei) = Hilfe
Next Trennung
 
With Mensch(1)
txtName.Text = Mensch(AktuellePerson).Name
txtVorname.Text = Mensch(AktuellePerson).Vorname
txtGeburtsdatum.Text = Mensch(AktuellePerson).Geburtsdatum
txtTelefon.Text = Mensch(AktuellePerson).Telefon
txtWohnort.Text = Mensch(AktuellePerson).Wohnort
End With