Array-Sortier-Prozedur
14.08.2014 08:43:55
Hendrik
Ursprünglich sollte er ein zweidimensionales Array verwenden können und dann habe ich intBreite aufgenommen, um darüber steuern zu können wie "breit" das Array ist. Ich wollte nicht unterschiedliche Prozeduren für 1- und 2-Dimensionale.
Der Code unten bricht ab, wenn ich ihn mit einem nur eindimensionalen (und intBreite=1) aufrufe, da er dann bei
strA = strArray(a, 1)
überläuft.
Ich sehe gerade partout nicht den springenden Punkt, der mich den Code zum laufen bringt. Könnt Ihr helfen? Danke!
Sub sortiereArray(strArray() As String, intBreite As Integer)
'Zum sortieren eines Arrays (alphabetisch nach Inhalt der ersten Spalte)
'Erwartet bei 1 beginnende Arrays
Dim a As Long
Dim b As Long
Dim strTmp As String
Dim strA As String
Dim strB As String
Dim i As Long
For a = 1 To UBound(strArray)
For b = a + 1 To UBound(strArray)
strA = strArray(a, 1)
strB = strArray(b, 1)
If strA > strB Then
For i = 1 To intBreite
strTmp = strArray(a, i)
strArray(a, i) = strArray(b, i)
strArray(b, i) = strTmp
Next i
End If
Next b
Next a
End Sub