fout in code

[Eastw00d]

onderstaande code genereerd een fout dat de typen niet met elkaar overeen komen

For d = 1 To 20
         Worksheets("ijshockey").Range("d" & d + 2) = CDbl(Me("ibedrag" & d))
         
           Next d

Kan iemand mij op de goede weg zetten?

Alvast bedankt

 

[Ginger]

Zonder voorbeeldbijlage lastig, maar ik denk dat de output van die TextBox een komma bevat waar CDbl niets mee kan.... (die verwacht - zo uit m'n hoofd - een punt als decimaal scheidingsteken)

 

[sylvester-ponte]

misschien :CDbl(Me("ibedrag" & d).value)

anders stuur een voorbeeld

 

[gast0660]

Met dit mager stukje code is het een pure gok.
Je werkt met CDbl, ergens voldoet een waarde in uw range niet aan de CDbl (is geen cijfer zeg maar)waarschijnlijk de header.

 

[edmoor]

Daarnaast kan je eenvoudig met de F8 toets de code doorlopen en zo zien over welke cel hij struikelt.

 

[Eastw00d]

For d = 1 To 20
         Worksheets("ijshockey").Range("d" & d + 2) = Me("ibedrag" & d).Value
         
           Next d

is de oplossing die werkt

 

[edmoor]

Schrijf het dan nog even zo:

For d = 1 To 20
    Worksheets("ijshockey").Range("d" & d + 2) = Me("ibedrag" & d).Value
Next d