Hvordan opretter man en søgebar database i excel

Vil foreslå array og userform. Altså en VBA løsning.

Jan

Er det muligt at få/se et eksempel på et paradigme?

De tre ark læses ind i hver sit array, i userformen vælger man årstal, så gennemgås de 3 array's  og hvis årstal er ens læses det ind i et nyt array som efter endt gennemgang læses ind i det nye ark.

Jan

Har du en vejledning eller noget er ikke bekendt med array i excel

for et ark:
Dim Ws as Worksheet
Dim rArea as Range
Dim arr () as Variant
Dim NewArr () as Variant
Dim SøgeÅr as Intriger
Dim arrRow as Intriger
Dim iCount as Intriger

Sub Test()
Set Ws=Sheets("Ark1")
Set rArea=Ws.Range("A1")
set rArea=Range(rArea,rArea.End(xldown). offset(0,5) ' 5= kolonner til højre for "A"

arr=rArea ' nu er hele arket læst ind i Arayet

SøgeÅr=1900

For arrRow=0 to ubound(arr,1)
      if SøgeÅr=arr(arrRow,1) then iCount=iCount+1 ' arr(række,kolonne)
Next
Redim NewArr(iCount,5) ' 5= antal kolonner
iCount=0
For arrRow=0 to ubound(arr,1)
        if SøgeÅr=arr(arrRow,1) then
            NewArr(iCount)=arr(arrRow)
        end if
Next
'Nu ligger alle rækker med 1900 i NewArr
' skal resultatet ligges over i ark2

set Ws=Sheets("Ark2")
set rArea=Range(ws.cells(1,1),ws.cells(ubount(NewArr,1),ubount(NewArr,2))
rArea=NewArr
'Nu burde data være overført til ark2

End Sub

Ej Testet

Jan