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