Gruppe
Allgemein
Problem
Wie kann ich über eine VBA-Routine Datenfelder sortieren lassen?
StandardModule: basMain
Sub SortArray()
Dim arr(1 To 4)
Dim iCounter As Integer, iCount As Integer, iTmp As Integer
arr(1) = 9: arr(2) = 7: arr(3) = 15: arr(4) = 1
For iCounter = 1 To 4
For iCount = iCounter + 1 To 4
If arr(iCounter) > arr(iCount) Then
iTmp = arr(iCounter)
arr(iCounter) = arr(iCount)
arr(iCount) = iTmp
End If
Next iCount
Next iCounter
For iCounter = 1 To 4
MsgBox prompt:=arr(iCounter)
Next iCounter
End Sub