Hej på er.. Hoppas att ni kan hjälpa mig! ;)

<code>
For z = 0 to uBound(data2)
If Not data2(z) = "" then
For y = 0 to uBound(data)
If Not data(y) = "" then
If Not int(data(y)) = int(data2(z)) then

ReDim Preserve arrTemp(UBound(arrTemp) + 1)
arrTemp(UBound(arrTemp)) = int(data2(z))

End if
End if
Next
End If
Next
</code>

Det som är i arrayen "data" är det som ska jämföras mot "data2", ett värde som är med i "data" ska tas bort ur "data2". Det funkar om "data" bara har en rad, men har "data" två eller fler rader så blir det bara konstigt, antingen så tas inget bort, eller så blir det dubletter av det hela..

Snälla, svara snabbt!! ;)

Ingen som lyckas hjälpa mig?!? ;)

Jag ska alltså ta bort en rad ur arrayen "data2", de rader som är i arrayen "data"..

Här kommer en snygg lösning:
<code>
Dim z
Dim y
Dim UB1
Dim UB2
Dim Value1
Dim Value2
Dim Offset
UB1 = UBound(Data)
UB2 = UBound(Data2)
For z = 0 To UB2
Value2 = Data2(z)
If Offset Then
Data2(z - Offset) = Value2
End If
If IsNumeric(Value2) Then
For y = 0 To UB1
Value1 = Data(y)
If IsNumeric(Value1) Then
If Int(Value2) = Int(Value1) Then
Offset = Offset + 1
Exit For
End If
End If
Next
End If
Next
If Offset Then
ReDim Preserve Data2(UB2 - Offset)
End If
</code>

Ahh men grabben.. det funkade ju bättre än man kunnat drömma om!!

Du har räddat mitt liv, eller ja, nästan.. ;)