AW: Array auswerten mit VBA
20.10.2011 15:18:34
Rudi
Hallo,
Weshalb ist da ein Transpose nötig?
damit wird ein eindimensionales Array draus. Nicht wirklich nötig, dann aber so:
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
arr(x(i, 2)) = -9 ^ 99
Damit wird das gefundene Maximum auf einen sehr niedrigen Wert gesetzt. Sonst wird's ja beim nächsten Durchlauf auch wieder gefunden.
Gruß
Rudi