Minteken achter getal

[engelrob]

Vanuit ons systeem heb ik data in excel gezet.
Min getallen hebben het min teken achter het getal staan.
Hierdoor kan ik de getallen niet optellen.
Heb al wat geprobeerd met celeigenschappen te doen of de functie WAARDE, maar dat helpt niets.
Hoe kan ik de notatie als getal krijgen?Bekijk bijlage XLS_minteken.xlsx

 

[roeljongman]

hoe krijg je dit bestand uit jullie systeem? is dat een een excel formaat of een ander formaat, ik vermoed het laatste want naast het minteken achter de waarde dat kan excel meestal wel "opvangen" maar er staat nu ook een hele bak spaties voor de waarden dus dan is het logisch dat excel het niet herkent als

ik kan hier nu wel een snelle oplossing neerplempen hoe je de spaties eruit krijgt en de tekst omzet naar getal, maar dan heb je extra stappen terwijl ik vermoed dat je deze handelingen waarschijnlijk al eerder kan of moet doen om het bestand klaar te krijgen voor excel

 

[oeldere]

CTRL + H zoeken naar -
vervangen door (niets invullen)
Kolom D celeigenschappen, getal, 2 decimalen.

Maar zoals Roel al aangeeft in #2 is het misschien beter, om dit probleem bij de bron aan te pakken.

 

[jolivanes]

Of als je het via een macro wil doen

Sub TryThis()
    Dim C As Long
    Dim Data As Variant
    Dim R As Long
        Data = Sheet1.UsedRange.Value
            For R = 1 To UBound(Data, 1)
                For C = 1 To UBound(Data, 2)
                    If Right(Data(R, C), 1) = "-" Then
                        Data(R, C) = Val(Data(R, C)) * -1
                    End If
                Next C
            Next R
       Sheet1.UsedRange.Value = Data
End Sub

 

[engelrob]

Ik krijg de data als een .csv uit het systeem.
De oplossing via CTRL + H werkt prima.
Bedankt voor jullie snelle reacties.

 

[oeldere]

Bedankt voor de terugkoppeling.

Laat je, jolivanes ook even weten, of die oplossing (voor jou) ook werkt?

 

[engelrob]

Ik ben zelf (nog) niet zo handig met macro's.
Als ik de macro opstart zoals hierboven aangegeven krijg ik de foutmelding "object vereist" bij regel 5 (Data).
Dien ik in de beschreven macro nog wat data specifiek voor mijn document te wijzigen voordat deze werkt?

 

[oeldere]

Bedankt voor de terugreactie.

Ik laat de vraag graag door Jolivanes beantwoorden.

Zelf heb ik onvoldoende kennis van VBA om je hiermee te helpen.

 

[jolivanes]

Werkt voor mij in het voorbeeld.
Bekijk het bijgesloten werkbook eens


@ oeldere
Quote: "Zelf heb ik onvoldoende kennis van VBA om je hiermee te helpen."

Wel erg bescheiden. Ik heb heel wat van jou (U) geleerd over de tijd

Bekijk bijlage XLS_minteken(engelrob).xlsm

 

[engelrob]

@jolivanes. Helaas krijg ik nog steeds dezelfde foutmelding als eerst wanneer ik de macro uitvoer.
Zie in de bijlage mijn bestand met een exacte kopie van jouw macro erin.Bekijk bijlage XLS_minteken_v2.xlsm

 

[Warme bakkertje]

Maak overal in de macro waar Sheet1 staat Blad1 van.

 

[engelrob]

Dankjewel Warme bakkertje. Nu werkt het wel. Een oplossing is soms zo eenvoudig........ :thumb:

 

[jolivanes]

Had ik moeten weten!!!
Bedankt Warme Bakkertje.

Het kan zijn als er formulas in het blad staan dat het niet werkt.
De macro gebruiken voordat je er formulas in zet of de formulas er met code inzetten nadat de "minnetjes" veranderd zijn