Lave liste med tal i et ark, hvis de findes i et andet ark via vba

skal de overførte tal stå i bestemt rækkefølge?

Det nemmeste for mig til senere brug er at de står i stigende orden.

ok..

Indsættes i module

Dim arkÅ As Worksheet, rækÅ As Long, antalRækÅ As Long

Dim arkL As Worksheet, rækL As Long
Const startRækL = 5

Dim listeTabel(2000) As Integer, tal As Integer, ix As Integer
Public Sub overførNejTilListe()
    Set arkÅ = ActiveWorkbook.Sheets("Åbne")
    Set arkL = ActiveWorkbook.Sheets("Liste")
   
    arkÅ.Select
    antalRækÅ = findAntalRæk(arkÅ)
    rækL = startRækL
       
    Application.ScreenUpdating = False
   
    For rækÅ = 1 To antalRækÅ
        If LCase(Range("F" & CStr(rækÅ))) = "nej" Then
            tal = Range("A" & CStr(rækÅ))
Rem Er tallet mellem 1 - 1999
            If tal >= 1 And tal <= 1999 Then
                listeTabel(tal) = tal      'opdater i tabellen
            End If
        End If
    Next rækÅ

    arkL.Select
Rem gennemgå tabel
    For ix = 1 To 2000
        If listeTabel(ix) > 0 Then
            Range("A" & CStr(rækL)) = listeTabel(ix)
            rækL = rækL + 1
        End If
    Next ix
   
    Application.ScreenUpdating = True
    arkL.Select
End Sub
Private Function findAntalRæk(arkNavn)
    arkNavn.Select
    findAntalRæk = ActiveCell.SpecialCells(xlLastCell).Row
End Function

Den laver desværre en fejl

run time error ´6´
Overflow

Og så viser den at der fejl i denne linje:
tal = Range("A" & CStr(rækÅ))

Jeg kan ikke hitte ud af hvad der går galt.

Prøv at ændre erklæring af "tal"----> long i stedet for Integer

Dim listeTabel(2000) As Integer, tal As Long, ix As Integer

Jep, så var den der.
Jeg takker mange gange

fint & selv tak..