zweidimensionales Array sortieren
01.08.2008 12:17:00
Werner
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