Thema: zweidimensionales Array sortieren

VBA-Level: befriedigend
Hallo Freunde,
aus der Wikipedia habe ich folgenden Programmtext entnommen. Damit kann man ein eindimensionales
Array übergeben und sortieren lassen. Nun würde ich gern stattdessen ein zweidimensionales Array übergeben und sortieren lassen, weiss aber nicht, wie. Weiß jemand von euch, wie man untenstehenden Makro umschreiben muss, damit ein zweidimensionales Array als Parameter übergeben werden kann?
Besten Dank im voraus! Werner R.
Option Explicit

Public Sub BubbleSort(ByRef data() As String)
Dim OG&, i&, h As String
OG = UBound(data)
Do
For i = 1 To OG - 1
If data(i) > Data i + 1) Then
h = data(i)
data(i) = data(i + 1)
data(i + 1) = h
End If
Next i
OG = OG - 1
Loop While OG > 1
End Sub

Hallo,
schau mal hier:
http://www.online-excel.de/excel/singsel_vba.php?f=97
Gruß
Rudi

Hallo Rudi,
Herzlichen Dank f. den Hinweis!! Im Archiv hatte ich nur einen vergleichbaren, aber schrecklich komplizierten Code von Nepumuk gefunden, ohne Erklärungen (vom 24.7.2004). Werner R.

Hallo Rudi, hallo Freunde,
vergessen hatte ich noch zu erwähnen, dass man das Sortierproblem umschiffen kann, indem man die
Daten in ein Arbeitsblatt ausliest, dort sortieren laesst (den Sortiertmakro ggf. automatisch erstellen lassen und anpassen) und dann die Daten an den ursprünglichen Ort (ein Arbeitsblatt oder z.B. eine Userform) zurückschreibt.
Die meisten VBA-Sortieralgorithmen sind nämlich sehr kompliziert. Werner R.