Waar zit de fout?

[rg027]

ik probeer via een macro lege cellen te vullen. Dit lukt gedeeltelijk.De macro overschrijft namelijk ook de niet lege cellen. Weet er geen raad mee. Kan iemand me helpen? Alvast bedankt

 

[jheesterbeek]

je selecteerd het hele gebeid en plakt er een formule in:
Range("E3:N11").Select
Selection.FormulaR1C1 = "=VLOOKUP(R2C,Zoek,2,FALSE)"

daarmee overschrijf je alles.

Probeer eens:
Sub aanvullen()
For Each a In Range("test")
If a = "" Then
a.Select
Selection.FormulaR1C1 = "=VLOOKUP(R2C,Zoek,2,FALSE)"
End If
Next a
End Sub

 

[rg027]

Inderdaad. Deze code doet het helemaal. Men dank is groot