Hallokes iedereen,

Volgende code-blokje heb ik binnen een "For... Next..."-loop (die elke rij doorloopt) staan in een werkblad-macro.
De waarden in Array "arVarnrs" worden weggeschreven naar een ander werkblad.

'----- converteer de voornamen naar hun "Latijnse" vorm
        Dim arVarnrs()
        nrs = Array(voornaam, vdrvoornaam, mdrvoornaam)
        For a = 0 To 2
            tekst = nrs(a)
            naam = WorksheetFunction.Trim(tekst)
            n = Split(naam, " ")
            For j = 0 To UBound(n)
                With Sheets("vnvarianten").Rows("1:50")
                    On Error Resume Next
                    c = ""
                    c = .Find(n(j), LookIn:=xlValues, LookAt:=xlWhole).Column
                    n(j) = .Cells(1, c)
                End With
            Next j
            varnaam = Join(n, " ")
            ReDim Preserve arVarnrs(b)
            arVarnrs(b) = varnaam
            b = b + 1
        Next a

Hoe kan ik er nu voor zorgen dat "arVarnrs" bij het inlezen van de volgende rij (dus na het wegschrijven van de waarden in het tweede werkblad) opnieuw leeg is?

Alvast dank op voorhand.

groetjes,
BlackDevil

Hey Veerj,

Bedankt voor jouw voorbeeldje.

Ik had ook net de oplossing gevonden door gewoon vlak voor mijn Next (volgende rij) het lijntje
b = 0toe te voegen.

Opgelost dus 


groetjes,
BlackDevil