Code vereenvoudigen.

[Sfinxie]

De foutmelding die ik krijg:

Fout 13 tijdens uitvoering:
De typen komen niet met elkaar overeen.

Klik ik dan vervolgens op 'Foutopsporing' dan zie ik het volgende tekstgedeelte in fel geel: If Not Evaluate("isref(" & Sheets("blanco").Range("C3") & "!A1)") Then


Voor wat betreft de instelling van de VBA editor:
Bij mij staat ook een vinkje bij Microsoft Forms 2.0 Object Library

Als ik dat vinkje wil weghalen dan kan dat niet omdat het in gebruik zou zijn. Sluit ik de openstaande bestanden af en open ik iets anders dan zie ik dat Microsoft Forms 2.0 Object Library nergens meer terug.
Open ik niks, maar alleen de VBA editor dan kom ik niet eens in 'Verwijzingen'

 

[pasan]

Sheets("Blanco").Range("C3, etc
= Sheets("Basis_routeformulier").Range("C5, etc
bij de code van snb stond hier ook C3 dit moet zijn C5 want anders is je cel leeg en je kunt geen blad toevoegen zonder naam

 

[Sfinxie]

Duidelijk. Ga ik van het weekend nog even proberen.

 

[Sfinxie]

Helaas, de foutmelding blijft terugkomen. Het maakt echter niet uit, want die eerste, iets langere code werkt voor mij prima.

 

[pasan]

oke
succes ermee