Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Felder über VBA sortieren

Gruppe

Sortieren

Problem

Wie kann ich über eine VBA-Routine Datenfelder sortieren lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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