sortere multi array

Public Sub opg2()
Call valslagsfilnavn
' Dim salgaar As String
Dim z, q, p, j, i As Integer
Dim Valdata As Workbook
Dim Valsheet As Worksheet
z = 0
Dim antal As Long
ReDim salgaar(1, UBound(salgsdatafiler()), antal) As Variant

  For p = 1 To UBound(salgsdatafiler())
 
Set Valdata = Application.Workbooks.Open(salgsdatafiler(p))
Set Valsheet = Valdata.Worksheets(1)
'Dim antal As Variant
'If p = 1 Then antall = Valsheet.Range(Range("a2"), Range("a65000").End(xlUp)).Count  'tæller antal indtastninger efter overskriften


 
antal = Valsheet.Range(Range("a2"), Range("a65000").End(xlUp)).Count  'tæller antal indtastninger efter overskriften

Dim fundet As Boolean
'Do Until i = antall
j = 0
Dim o, y As Integer
For i = 1 To antal
ReDim Preserve salgaar(1, UBound(salgsdatafiler()), antal)

For y = LBound(salgaar) + 1 To UBound(salgaar)
fundet = False
  For o = LBound(salgaar) To y
    If salgaar(0, z, o) = Valsheet.Range("a" & i).Offset(1) Then                                  'Slet post nummer i
    salgaar(1, z, o) = salgaar(1, z, o) + Valsheet.Range("c" & i).Offset(1)
fundet = True
    Else
    'salgaar(0, z, j) = Valsheet.Range("a" & i).Offset(1) 'her gemmes Kundeid
'salgaar(1, z, j) = Valsheet.Range("c" & i).Offset(1) 'her gemmes Valutakode
'fundet = False
End If
  Next o
Next y
If fundet = False Then

salgaar(0, z, j) = Valsheet.Range("a" & i).Offset(1) 'her gemmes Kundeid
salgaar(1, z, j) = Valsheet.Range("c" & i).Offset(1) 'her gemmes Valutakode

j = j + 1
Else
End If
    'Loop
    Next
   

Valdata.Close
z = z + 1
Next p

kun samme spørgsmål een gang - luk det andet, hvis du vil fortsætte her http://www.eksperten.dk/spm/708137

lad nu være ´med det fis martin, hvis du vil svare på mit spg gør det ellers lad være med at blande dig

Det er ikke for at være paragrafrytter, det er fordi, at hvis jeg nu svarer her, og det fører til en længere udredning, er det da temmeligt tåbeligt at andre sidder og gør det samme i en anden tråd. Det er potientielt spild af folks tid, ikke?

I øvrigt svært at svare når du har lukket spørgsmålet ;o)