Optellen tekst en cijfers

[fke1964]

Ik heb niet veel gedaan hoor ... Maar goed. Als de vraag is beantwoord dan mag je hem nog even op opgelost zetten

vanmorgen weer even verder geknutseld alleen ergens een wijziging gedaan waardoor de VBA formule code niet overal meer goed werkt.
In de bijlage onder de som van week 1 kolom AK telt de formule ineens 9 ipv 40 werkuren. Wat doe ik fout?

 

[HSV]

Zet de opmaak op standaard ipv "d".

 

[fke1964]

Zet de opmaak op standaard ipv "d".

ik begrijp helaas niet wat je bedoeld Harry.

gr,
Frans

 

[HSV]

celeigenschappen veranderen.

 

[fke1964]

celeigenschappen veranderen.

niet te geloven hoe simpel het kan zijn, dankjewel

 

[HSV]

Zet er nog de blauwe regelcode tussen.

Function VenA(r As Range) As Double
[COLOR=#0000ff]application.volatile[/COLOR]
For Each CL In r

 

[fke1964]

Zet er nog de blauwe regelcode tussen.

Function VenA(r As Range) As Double
[COLOR=#0000ff]application.volatile[/COLOR]
For Each CL In r

oke heb ik gedaan, waarom is dat?

gr,
Frans

 

[HSV]

Ik zag dat de cellen alleen stuk voor stuk veranderden door op de juiste cel te gaan staan en in de formulebalk te klikken.
Nu worden ze gelijk allemaal berekend.

Kijk maar eens naar de cellen AK8 en AK9, die staan op nul ipv. 9 of 40 als je het bestand opent.

alternatief.

Function VenA(r As Range) As Double
Application.Volatile
For Each cl In r
  VenA = VenA +[COLOR=#0000ff] Val(StrReverse(cl))[/COLOR]
Next cl
End Function

 

[fke1964]

Ik zag dat de cellen alleen stuk voor stuk veranderden door op de juiste cel te gaan staan en in de formulebalk te klikken.
Nu worden ze gelijk allemaal berekend.

Kijk maar eens naar de cellen AK8 en AK9, die staan op nul ipv. 9 of 40 als je het bestand opent.

alternatief.

Function VenA(r As Range) As Double
Application.Volatile
For Each cl In r
  VenA = VenA +[COLOR=#0000ff] Val(StrReverse(cl))[/COLOR]
Next cl
End Function

nou dat gaat mijn simpele petje te boven hoor maar heb wel jouw alternatief in vba gezet. Bedankt voor je hulp.

gr,
Frans

 

[snb]

Svp niet citeren/quoten.