Hjælp til Celle format af tekst værdi

Hej Morten,

Det kan du godt uden brug af anden hjælp end "Formatér celler"

- Marker cellen / cellerne, hvor du ønsker "xxx xxx xxx"
- Højreklik og vælg "Formatér celler"
- Vælg "Brugerdefineret"
- I "Type" skriver du ### ### ###
- Tryk "OK"

Nu vil indtastninger i cellen / cellerne blive opdelt som "xxx xxx xxx"

OBS - taster du en længere eller kortere celleværdi, vil visningen blive "forkert" - Excel vil "fylde cellen op" fra højre mod venstre - så 1234567 vil blive vist som 1 234 567

Håber du kan bruge det - ellers sig til.

/Be_Nice

Man kan ikke bruge talformatering (som ### ### ###) på tekst-data i Excel.

@xl-Enthusiast - Doh, - jeg skulle da vist have taget en kop kaffe mere før jeg svarede. Og du har ret, jeg havde kun talformatering i tankerne.

@Morten - glem det sludder jeg fik skrevet.

/Be_Nice

Det kan ikke gøres med formatering.

Enten skal du benytte en hjælpekolonne (som du ikke ønsker) eller også skal du benytte 'Worksheet_Change' eventen og lade en makro gøre arbejdet.

Som Dan skriver kan det gøres med en makro. Hvis du skriver værdien direkte ind i cellen (her i kolonne A) kan det gøres med denne makro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Len(Target) = 9 Then
Target = Left(Target, 3) & " " & Mid(Target, 4, 3) & " " & Right(Target, 3)
End If
End If
End Sub

Elllers kan du mærke cellerne op og køre nedenstående:

Sub Mellemrum()
Dim C As Range
For Each C In Selection
If Len(C) = 9 Then
C = Left(C, 3) & " " & Mid(C, 4, 3) & " " & Right(C, 3)
End If
Next
End Sub