Data ind i array

Nu ved jeg ikke hvor du får I fra, eller om du kender størrelsen på I fra starten.
Hvis du kender størrelsen fra starten, hvad i tæller op til, skal du dimme den

Dim linien skal være uden for løkken, normalt sættes den øverst i koden.
Dim ProductNumber(200)as variant, AntalEns As Integer

Hvis du ikke kender i fra starten, skal du redimme ProductNumber

Dim ProductNumber() As Variant, AntalEns As Integer

for I = 1 to osv

      AntalEnsSkabe = 0
        If Worksheets("Hoved ark").Range("L" & i & "") = BrandName And Worksheets("Hoved ark").Range("C" & i & "").Value = "S " & Model & "" Then
            AntalEns = AntalEns + 1
            Modelname = Worksheets("Hoved ark").Range("B" & i & "").Value
ReDim Preserve ProductNumber(i)
            ProductNumber(i) = Worksheets("Hoved ark").Range("D" & i & "").Value
        End If
    Next i

Super kabbak

Men giver det ikke en array med f.eks. 1200 værdier, selv om jeg, idet jeg har IF-sætningen, egentlig kun skulle have haft en værdi lig AntalEns. Men hvis jeg prøver at sætte AntalEns ind får jeg "Subscript out of range".

Og ja jeg har flyttet AntalEns uden for loopet:
Dim ProductNumber() As Variant, AntalEns As Integer, i As Integer
AntalEns = 0
For i = 4 To 1200
    If Worksheets("Hoved ark").Range("L" & i & "") = Brandname And Worksheets("Hoved ark").Range("C" & i & "").Value = "S " & Model & "" Then
        AntalEns = AntalEns + 1
        Modelname = Worksheets("Hoved ark").Range("B" & i & "").Value
        ReDim Preserve ProductNumber(AntalEns)
        ProductNumber(i) = Worksheets("Hoved ark").Range("D" & i & "").Value
    End If
Next i
Besked1 = MsgBox("antal beskeder = " & AntalEns & "", vbOKOnly)

Du skal ikke bruge I når det er antalens du dimmer

ReDim Preserve ProductNumber(AntalEns)
        ProductNumber(AntalEns) = Worksheets("Hoved ark").Range("D" & i & "").Value

Arrgh fjols, ja altså mig ;-)

Tak for hjælpen.