min teken

[wilbert1967]

hallo

ik lees een bestand in en geef zelf aan hoe breed de kolomen zijn
omdat er ook negatieve getallen staan in het bestand maar met de min achter de cijfers kan ik geen optelling maken
hoe krijg ik eenvoudig het min teken bij het getal voor het getal geplaats? Niet alle getallen hebben het is willekeurig dus ik dacht aan een macro
maar met opnemen gaat dat niet goed.

wilbert

 

[GiMe]

=ALS(RECHTS(A1)="-";SUBSTITUEREN(A1;"-";"")*-1;A1)
Indien getal (xxxx-) in A1.

 

[Ginger]

GiMe, volgens mij worden zo óók de positieve getallen als negatief genoteerd... Je zal 'm dus moeten vatten in een if-formule (lijkt me zo).

Dit idee had ik erover (toen pas zag ik de jouwe)

=IF(ISTEXT(A1);LEFT(A1;LEN(A1)-1)*-1;"")
nederlands
=ALS(ISTEKST(A1);LINKS(A1;LENGTE(A1)-1)*-1;"")

Groet, Leo

EDIT: ...en ik zie net dat GiMe het zelf ook al gezien had...

 

[GiMe]

Was al gedaan Ginger !

 

[wilbert1967]

dank u

nu nog in een macro plakken maar dat is voor als ik tijd heb

 

[Ginger]

Wilbert1967, Hierbij dan ook als code...

Sub VerplaatsMin()
Dim r As Range

    For Each r In Selection
       If InStr(1, r.Value, "-") > 0 Then r.Value = Left(r.Value, Len(r.Value) - 1) * -1
    Next r
    
End Sub

Selecteer de kolom of cellen waar de 'om te zetten waarden' in staan en run de code.

Groet, Leo

 

[wilbert1967]

dank u wel
werkt super