Hallo,
ich habe die Daten
0,625
0,666666667
0,708333333
0,75
0,666666667
0,791666667
0,375
0,416666667
0,458333333
0,3125
0,416666667
0,569444444
0,583333333
0,708333333
0,645833333
0,6875
0,805555556
0,5625
0,71875
0,541666667
0,458333333
0,333333333
0,4375
0,770833333
0,354166667
jetzt einmal komplett in eine separate Datei kopiert und dort den Code
ausgeführt - und siehe da es funktioniert einwandfrei, d.h. es werden nur Werte in das Array aufgenommen die vorher nicht enthalten waren.
D.h. doch, daß vorher irgend etwas im Format der Daten nicht gepaßt hat - aber wie kann man das korrigieren?
VG A.
[code]Sub test()
Dim arrX()
m = 1
ReDim arrX(0)
lngAnz = 0
For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If IsError(Application.Match(Cells(lngZeile, 1), arrX, 0)) Then ' schließt vorhandene Datensätze aus
ReDim Preserve arrX(0 To lngAnz)
arrX(lngAnz) = Cells(lngZeile, 1)
Cells(m, 2) = arrX(lngAnz)
m = m + 1
lngAnz = lngAnz + 1
End If
Next
End Sub
[/code]