Typen komen niet met elkaar overeen

[Hako012]

Bij het uitvoeren van een makro krijg ik de volgende melding
Fout 13
Typen komen niet met elkaar overeen.

Als ik naar de foutopsporing ga, wordt ik verwezen naar de volgende zin:
Do Until ActiveSheet.Cells(teller, 1).Value = ""

Kan iemand mij helpen?


Range("A1").Select
teller = 1
Do Until ActiveSheet.Cells(teller, 1).Value = ""
teller = teller + 1
Loop
Range("D2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],3)"
Range("D2").Select
Selection.AutoFill Destination:=Range(("D2"), Cells(teller, 4))

 

[danny147]

Beste Hako012

Ben niet 100% zeker, maar die LEFT staat daar nergens te doen volgens mij.

Groetjes Danny. :thumb:

 

[Hako012]

Beste Hako012

Ben niet 100% zeker, maar die LEFT staat daar nergens te doen volgens mij.

Groetjes Danny. :thumb:

Beste Danny,

Dank voor je reactie maar heeft helaas niet geholpen.

Groetjes Hako012

 

[Roncancio]

Je code kan wat korter:

Range("D1:D" & Range("A1").End(xlDown).Row).Formula = "=LEFT(RC[-1],3)"

Bovenstaande code doet hetzelfde als je gehele macro!

Met vriendelijke groet,


Roncancio