Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then 'B kolonnen Application.EnableEvents = False Target.Value = Target.Value / 100 Application.EnableEvents = True End If End Sub
Synes godt om
Slettet bruger
20. juli 2014 - 23:57#5
Supertekst kan ikke få din til det så jeg kan afprøve det.
kabbak det er tæt på. problemet her er at når du taster 050 - så bliver det lavet om til 0,5 (skal være 0,50) Samt med at når man evt. sletter det igen så kommer der et "0" Når det bliver slettet skal der være blank.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then 'B kolonnen Application.EnableEvents = False Target.Value = Target.Value / 100 Target.NumberFormat = "##0.00" If Target = 0 Then Target = "" Application.EnableEvents = True End If End Sub
Synes godt om
Slettet bruger
26. juli 2014 - 15:06#7
Tjekker lige når jeg kommer hjem en gang.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.