Hjææææææælp men celleformatering

Har du forsøgt med:
Formatter celler.
Vælg TAL

Husk at vælge hele kolonnen.

Ja det hjælper ikke.
:o(

Må vi se dit regneark ??

Prøv med søg/erstat, men så fjerner du alle minus (-) i kolonnen, men det virker.

Leger lidt med det !!.
Du kan også vælge:
Formatter celler.
Vælge hele kolonnen
Vælge Brugerdefineret
Vælge: -0_;[Rød]-0

Virker stadig ikke
:o(

Glem det - Jeg går igang med at ændre alle cellerne manuelt (holder ferie engang til september)

Selvtak !!

Du kan bruge den vba-stump den kan klare problemet

sub flytminus()
\'Flytter minusset, der står bag tallet til foran tallet i din markering.

For Each Cell In Selection
    If Not (InStr(1, Cell, \"-\") = 0) Then
    Cell.value = cell.value *1
    End If
Next Cell
End Sub

Her marker du bare det du skal have flyttet om på og kører makroen.

ASKIMS

Flot, men jeg er ikke nogen haj i at bruge vba-stumper. Hvordan skal det gøres.....

mkjeldsen>> send mig en mail, så skal jeg sende dig et lille hjælpe skriv om makro-editoren. Tryk på mit navn og find min mail-adresse.

marker kolonnen
erstat
find \"minus\"
erstat med \"ingenting\"
erstat alle

derefter kan du formatere cellerne som du ønsker

Aksel

- nek nej nej - glem det - tallet bliver jo posetivt når man fjerner minus\'et ( jeg gør det selv på mine kontoudtog fra banken - der hjælper det heller ikke)

- du må sikkert igang med en macro, eller definere et andet exportformat fra regnskabsprogrammet.

Aksel

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

Dette er den ikke særligt elegante fremgangsmåde, (jeg er nemlig heller ikke nogen VBA haj) :

Hvis dine problemtal f.eks. er placeret i kolonne A
Opretter du 4 nye kolonner  B, C, D, E
I B indsætter du formlen  =HVIS(ER.IKKE.TEKST(A1)=FALSK;A1;0)
I C indsætter du formlen  =HVIS(ER.IKKE.TEKST(A1)=SAND;A1;0)
Du har nu opdelt tallene i en positiv og en negativ kolonne
Nu ændre du formler i kolonne B og C til værdier (kopier området/rediger/Indsæt speciel/værdier)
Marker herefter Kolonne B - Søg på \"-\" og erstat med ingenting
Indsæt nu formlen i Kolonne D =HVIS(ER.FEJL(-B1)=SAND;0;-B1)
Indsæt tilsidst summen af C og D i kolonne E

Vupti og good luck !!

Jeg vil også være med!

Du kan i cellen til højre for det tal der skal have flyttet minus skrive denne formel

=HVIS(HØJRE(D4;1)=\"-\";VENSTRE(D4;LÆNGDE(D4)-1)*-1;D4)

I dette eksempel er det cellen D4 der får flyttet \"-\". Du kan så bare kopiere formlen nedad i den kolonne du skal have ændret.

Når du så har gjort det kan du markere området, kopiere og indsætte værdier med indsæt speciel.

Hvis det skal være på den måde, så vil denne også løse dit problem, og du behøver kun en ekstra kolonne. Jeg har forudsat at det der skal konverteres står i kolonne A

=HVIS(ER.TAL(A4);A4;\"-\"&VENSTRE(A4;LÆNGDE(A4)-1))

askims din løsning er ikke så god som fobian\'s, hvis du kigger på tallets placering efter formlen. Hvis din i stedet hedder

=HVIS(ER.TAL(A4);A4;VENSTRE(A4;LÆNGDE(A4)-1)*-1) ville du få den helt rigtige værdi/placering i cellen lige som fobian har.