Sub test()
Dim arr, i As Long, j As Long, x(1 To 4, 1 To 2)
arr = Application.Transpose(Range("A1:A100"))
For i = 1 To 4
For j = LBound(arr) To UBound(arr)
If arr(j) > x(i, 1) Then
x(i, 1) = arr(j)
x(i, 2) = j
End If
Next j
arr(x(i, 2)) = -9 ^ 99
Next i
For i = LBound(x) To UBound(x)
Cells(x(i, 2), 1).Interior.Color = 255
Next
End Sub
Sub test()
Dim arr, i As Long, j As Long, x(1 To 4, 1 To 2)
arr = Range("A1:A100")
For i = 1 To 4
For j = LBound(arr) To UBound(arr)
If arr(j, 1) > x(i, 1) Then
x(i, 1) = arr(j, 1)
x(i, 2) = j
End If
Next j
arr(x(i, 2), 1) = -9 ^ 99
Next i
For i = LBound(x) To UBound(x)
Cells(x(i, 2), 1).Interior.Color = 255
Next
End Sub
Sub getSort4()
Dim arr(1 To 5) As Integer
Dim Schleife As Integer
' arr(0) = 17
arr(1) = 18
arr(2) = 4
arr(3) = 3
arr(4) = 7
arr(5) = 2
Call mSort(arr)
' ab hier Ausgabe in's Testfenster nach mSort
Debug.Print "Nach der Sortierung"
For Schleife = 0 To 3
Debug.Print Schleife + 1 & ": " & arr(UBound(arr) - Schleife)
Next Schleife
End Sub
Sub mSort(arr() As Integer)
Dim Temp As Double
Dim i As Long
Dim j As Long
For j = 2 To UBound(arr)
Temp = arr(j)
For i = j - 1 To 1 Step -1
If (arr(i) Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen