VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Felder über VBA sortieren

Gruppe

Allgemein

Bereich

Sortieren

Thema

Felder über VBA 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren