Automatisk formatering til negativt tal ved indtastning

Du kan lave et nyt felt med formlen: "=-ABS(A1)", hvor A1 er det felt som du indtaster din værdi i.

Brugerdefineret format: -0,00

Dette lader ikke til at være løsningen for mig efter jeg har prøvet at lege med det.

Man kan tilsyneladne ikke redigere i ens indlæg. Forrige kommentar var rettet til mjense173. Tak for forslaget.
@supertekst: Det var bare lige løsningen. Mange tak. Ville gerne have rettet point'ne men det kan man åbenbart ikke. Er ny er på sitet, så er lige ved at lære at begå mig :O)

Selv tak og velkommen til.
Hvis man vil gve flere point - så kan der oprettes et nyt spørgsmål med reference til det oprindelige og med en titel, der kunne være: "Point til xxx".

Øv. Det bliver da noget være gøjleri, når man laver søgning i tråde. Så ligger der ekstra tråde, som der ikke er noget interessant i.

Ja - det kan man godt sige - men det synes jeg ikke er den store forhindring for at få udbytte af E. Så mange er der heller ikke.

Hmm, de skulle oprette en part i forummet hvor dette kunne gøres, så man ikke forpester trådene unødigt.

Nå, men her er et link til nyoprettet tråd til ekstra point :O)

http://www.eksperten.dk/spm/928987

Har nu fået leget mere med funktionen, og har fundet ud af at den faktisk ikke løste mit problem. Med funktionen Brugerdefineret bliver der nu sat et - tegn foran, men tallet bliver ikke negativt af det. Hvis jeg har en celle hvor der står 1
og en celle hvor jeg har brugt brugerdefineret til at tallet der bliver skrevet automatisk for et - tegn foran og skriver 1, og laver en SUM funktion, så bliver resultatet 2, istedet for 0.
Kort vist:
  1
+ -1
=  2

Indsæt følgende i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1:C100"), Target) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value > 0 Then
                Target.Value = -Target.Value
            End If
        End If
    End If
End Sub

Det relevante område er her sat til A1:C100 (række 2). Du kan selv ændre til ønsket område.

Hans

Det er ikke noget jeg har prøvet før. Har fundet ud af at komme ind til opsætningen med Alt+F11. Ellers er jeg lidt lost. Hvor skal der indsættes og hvordan.

Nu tror jeg at jeg fandt ud af hvordna man kom ind og indsætte dataerne. Men hvordan og hvorledes hvis jeg har flere specifikke områder der skal inkluderes, som ikke kan defineres ved valg af hel række/kolonne?

Eks.

Har et område fra B2:B30, C2:C30, E2:E30, osv.

Stå i det relevante ark.
Højreklik på arkfanen og vælg "Vis programkode"

Indsæt følgende:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B2:B30, C2:C30, E2:E30"), Target) Is Nothing Then
        If IsNumeric(Target.Value) Then
            If Target.Value > 0 Then
                Target.Value = -Target.Value
            End If
        End If
    End If
End Sub

Du kan selv sætte flere ranges i kodens række 2.

Ahh, smart. Jeg prøver lige at lege løsningen. Hvis det er den løsning jeg søger, så opretter jeg et seperat sprgs. til dig med point i.

Kan du modtage point fra denne tråd hvis der er blevet uddelt point?

Glem det bare. Jeg er her ikke for at få point.
Hans

Hi hi . Det var fint. Tak for hjælpen. Det virker til at virke. Hvad skal man på kursus i for at lære sådan programmering. Er det makroskrivning?

Hvis du lige hopper ind på http://www.eksperten.dk/spm/928987#reply_7717750
Så er der 35 point til dig alligevel.

@supertekst: Tak for hjælpen, men det viste sig at det ikke var læsningen jeg søgte. Fortegnet blev ændret, men værdien blev ikke negativ af det. Men fin nok funtion, hvis man bare har brug for visuelt at se værdierne som negative. Så de 15 point går til det. Jeg lader de ekstra point gå til dkhanknu istedet. Håber det er okay. Fedt at lære 2 nye ting på en gang :O)

Fint nok...