Formule in cel zetten via VBA

[BaVN]

Hello,

Ik probeer in een range cellen een formule te zetten en die dan door te voeren in een gans bereik, maar krijg steeds de foutmelding :
"Application-defined or object-defined error"
Heb al vanalles geprobeerd maar geraak er niet uit wijs.

De code die ik gebruik (let niet op de formule die wordt ingevoegd, daar zit het probleem niet):

Dim Rng As Range
Dim R As Long

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
R = Rng.Rows.Count

Range("E1").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(TRIM(RC[-1]))=6;DATE(CONCATENATE(""20"";RIGHT(RC[-1];2));MID(RC[-1];3;2);LEFT(RC[-1];2));IF(LEN(TRIM(RC[-1]))=5;DATE(CONCATENATE(""20"";RIGHT(RC[-1];2));MID(RC[-1];2;2);CONCATENATE(""0"";LEFT(RC[-1];1)))))"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E" & R), Type:=xlFillDefault
Range("E1:E" & R).Select

EndMacro:
MsgBox Err.Description, , , Err.HelpFile, Err.HelpContext
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Vanaf de lijn met

Range("E1").Select

loopt het fout en krijg ik de error. anybody who can help?

thx,
B.

 

[Wigi]

Als je zegt dat de formule klopt, zal dit toch moeten werken:

Range("E1").FormulaR1C1 = "=IF(LEN(TRIM(RC[-1]))=6;DATE(CONCATENATE(""20"";RIGHT(RC[-1];2));MID(RC[-1];3;2);LEFT(RC[-1];2));IF(LEN(TRIM(RC[-1]))=5;DATE(CONCATENATE(""20"";RIGHT(RC[-1];2));MID(RC[-1];2;2);CONCATENATE(""0"";LEFT(RC[-1];1)))))"

Hang anders eens een bestandje bij als het kan.

Wigi

 

[BaVN]

Hi Wigi,

u vraagt, wij draaien...
blijkt nog niet te werken.. very weird.

grtz,
b.

 

[Wigi]

Gebruik , ipv ;

ook 20 ipv ""20""

Range("E1").FormulaR1C1 = _

"=IF(LEN(TRIM(RC[-1]))=6,DATE(CONCATENATE(20,RIGHT(RC[-1],2)),MID(RC[-1],3,2),LEFT(RC[-1],2)),IF(LEN(TRIM(RC[-1]))=5,DATE(CONCATENATE(20,RIGHT(RC[-1],2)),MID(RC[-1],2,2),CONCATENATE(0,LEFT(RC[-1],1)))))"

Wigi

 

[BaVN]

Dat was het dus idd!!
Fantastisch!! was weer een klein addertje en het gras stond wat te hoog!!

thx,
B.