-X omzetten naar X-

[Silke Kerckhofs]

Hoe kan ik een kolom met verschillende getallen waarvan sommige bv. -6 omzetten naar 6- ?

 

Alvast bedankt!

[bakerman]

Dit zet je misschien op weg.

 

Getallen in kolom A.

 

Sub tst()
    For Each cl In Range("a1", Range("A" & Rows.Count).End(xlUp))
        If Left(cl, 1) = Chr(45) Then
            cl.Value = Mid(cl.Value, 2, Len(cl.Value) - 1) & Chr(45)
        End If
    Next
End Sub