Fortegn

Jeg en stump VBA-kode, som klarer problemet.
Send din dil til jan_vogt_hansen@hotmail.com

Marker området hvori du har problemet, højreklik på det markerede og vælg formater celler. Vælg f.eks. kategorien Tal.

Følgende kode klarer problemet:
Sig til, hvis du ikke ved, hvordan den skal indsættes.

Sub ConvertNegNumbers()
Dim cl As Range, a As Integer
    If TypeName(ActiveSheet) <> \"Worksheet\" Then Exit Sub
    Application.ScreenUpdating = False
    Application.StatusBar = \"Converting negative values...\"
    a = Selection.Areas.Count
    If a = 1 And Selection.Cells.Count = 1 Then ActiveSheet.UsedRange.Select
    For a = 1 To Selection.Areas.Count
        For Each cl In Selection.Areas(a).Cells
            If Right(cl.Formula, 1) = \"-\" Then
                cl.Formula = \"-\" & Left(cl.Formula, Len(cl.Formula) - 1)
            End If
        Next cl
    Next a
    Application.StatusBar = False
    Application.ScreenUpdating = True
End Sub

Jeg havde ikke fået læst spørgsmålet rigtigt, mit svar kan ikke bruges, men det kan Jan\'s.

Tak for det hurtige svar - jeg prøver det lige imorgen

Det er jo bare som det skal være

Tak for hjælpen

Velbekomme :-)