Waarde in cel wordt niet herkend als negatief getal

[Dukesofhazard]

Beste forumleden,

Ik heb onlangs een V&W uit een bepaald boekhoudprogramma geexporteerd naar Excel.
Daarin staan dus ook creditbedragen. Deze worden in de V&W met een min achter het getal aangegeven als zijnde credit. Zie printscreen hiervoor. Het geval is nu alleen dat de waarden met een minus er achter niet worden herkend als getal. D.w.z. ze worden niet in de som formule meegenomen, Zie nogmaals printscreen hiervoor:




Wat moet ik nu doen om de waarde in deze cel als min getal op te nemen in deze sheet zodat ik een controle totaaltelling kan maken??

Bij voorbaat dank!

Gr. Dukes..

 

[AlexCEL]

Ik vermoed dat de cel met het bedrag 33.842 niet herkend wordt als getal, maar bijvoorbeeld als tekst. Maar met alleen printscreen is het natuurlijk lastig om te bepalen of dit zo is...

 

[spaarie]

Probeer dit eens:

Sub Spaarie()
    For Each v In Sheets(1).UsedRange
        If Right(v, 1) = "-" Then v.Value = CDbl("-" & Replace(Mid(v, 1, Len(v) - 1), ".", ""))
    Next
End Sub

 

[Dukesofhazard]

Hierbij een voorbeeldbestandje:

Bekijk bijlage Voorbeeldbestand 3.xlsx

Ik zal nu ook nog proberen om deze module in te voegen.

Bedankt tot zover..

Gr. Duke

 

[Dukesofhazard]

Hoi Spaarie,

Je script werkt perfect!

Heel erg bedankt! :thumb:

Gr. Dukes..

 

[Dukesofhazard]

Hallo Spaarie,

Vanochtend bij het openen van de sheet kreeg ik de volgende melding:



Wat moet ik nog aanpassen?

Gr. Dukes..

 

[spaarie]

De code 'Private Sub Workbook_Open()' moet achter 'ThisWorkbook' en niet achter 'Blad1'.
Vermoedelijk is dit je fout...

Dus even copy-pasten achter 'ThisWorkbook'...

 

[Dukesofhazard]

Weer uit de brand,

Bedankt!