Sub MenschenSort(byVal Mini As Long,byVal Maxi As Long)
Dim TempMensch As clMensch
Dim Mitte As Long
Dim Mittelwert As Variant
Dim i As Long, j As Long
If Mini >= Maxi Then
Exit Sub
End If
i = Mini
j = Maxi
Mitte = (Mini + Maxi) / 2
Mittelwert = clMensch(Mitte).Dienststelle
Do
Do While clMensch(i).Dienststelle < Mittelwert
i = i + 1
Loop
Do While clMensch(j).Dienststelle > Mittelwert
j = j - 1
Loop
If i <= j Then
Set TempMensch = clMensch(i)
Set clMensch(i) = clMensch(j)
Set clMensch(j) = TempMensch
i = i + 1
j = j - 1
End If
Loop Until i > j
clMensch(Mini).MenschenSortNachname Mini, j
clMensch(i).MenschenSortNachname i, Maxi
End Sub
Der verwendete Wert "clMensch(Mitte).Dienststelle" soll nun durch eine Variable ersetzt werden. Einmal soll nach .Dienststelle, ein ander mal nach .Nachname usw. sortiert werden. Ich will aber nicht 10 verschiedene Sortierungen schreiben, sondern nur eine und die eben variabel nach der Eingabe des Benutzers.
Wer kann mir helfen ?