Konverter negative tall med minustegnet bakerst

Når man importerer tall fra datakilder utenfor Excel hender det ofte at man får problemer med de negative verdiene. Disse kommer ofte med minustegnet bakerst, og blir da oppfattet som tekst når tallene leses inn i Excel. Ved hjelp av makroen nedenfor kan man enkelt konvertere de negative tallene om til et format som Excel kan regne med:

Sub ConvertNegativeNumbers()
Dim cl As Range
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Application.StatusBar = "Converting negative values..."
    For Each cl In Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
        If Right(cl.Formula, 1) = "-" Then
            On Error Resume Next
            cl.Formula = CDbl(cl.Value)
            On Error GoTo 0
        End If
    Next cl
    Set cl = Nothing
    Application.StatusBar = False
End Sub

Dokumentet er sist oppdatert 1999-12-20 12:37:25 Utskriftsvennlig versjon