Prøv med denne makro, som bliver aktiveret når der bliver skrevet noget i kolonne C. Jeg går ud fra at du har skrevet forkert, da du ville vise det ønskede resultat. Det skulle vel være 15500,35
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c:c")) Is Nothing Then If Mid(Target, Len(Target) - 2, 1) <> "," Then Target = Target / 100 Target.NumberFormat = "#,##0.00" End If End If End Sub
En anden hurtig løsning er, at du markerer tallene og bruger genvejstast Ctrl+Shift+1 (1-tallet over Q).
Hvis det skal ske automatisk for alle Excel-filer, du starter, er der også en løsning, men den vil så betyde, at f.eks. datoer bliver formateret forkert, fordi datoer i Excel også talværdier.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.