Wie sortiert man eine Feldvariable
04.01.2004 10:21:37
KarliH
ich lese mit folgendem Code 20 Meßwerte (unsortiert), über eine InputBox in eine Feldvariable ein und möchte diese dann in den Zellen A1:T1 aufsteigend sortiert ausgeben.
Meine Frage ist nun, wie sortiere ich diese Meßwerte innerhalb der Feldvariablen aufsteigend?
Option Explicit
Sub Meßwerte()
Dim intI As Integer, dblZahl(20) As Double
For intI = 1 To 20
dblZahl(intI) = Application.InputBox(Prompt:="Meßwert " & intI, _
Title:="Zahleneingabe", _
Left:=359, _
Top:=33, _
Type:=1)
Next intI
'Hier muß Feldvariable dblZahl(20)aufsteigend sortiert werden
'um die Meßwerte in der Folgeschleife sortiert
'in den Zellen A1:T1 auszugeben
For intI = 1 To 20
Cells(1, intI).Value = dblZahl(intI)
Next intI
End Sub
Würde mich über den erforderlichen fehlenden Code freuen.
Gruß Karli