Kontonummer format problem

Problemet er ikke din formatering, den er princippet korrekt. Problemet er, at Excel højst kan vise 15-cifrede tal i cellerne.

Du kan indtaste kontonumrene som tekster; men kan ikke bruge formateringen på tekst-indhold.

Du kan evt. bruge en ekstra kolonne:
Formater A-kolonnen som tekst, indsæt formlen =MIDT(A1;1;4) & "-" & MIDT(A1;5;4) & "-" & MIDT(A1;9;4) &"-" & MIDT(A1;13;4)
i B1 og kopier til resten af B-kolonnen.

B-kolonnen vil da have det korrekte format (formateret som tekst).

(du skal altså bruge A-kolonnen til indtastning og B-kolonnen som de resulterende kontonumre)

Stefan's forslag er fint.
Du kan også lægge denne kode ind i arkets eget kodemodul (højreklik på arkfanen og vælg "vis programkode"
Den vil så automatisk omdanne til korrekt format, når cellen forlades
Forudsætningen er at kolonne A er formateret som tekst inden du starter

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t(1 To 4)
  If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
  If Target.Cells.Count > 1 Then Exit Sub
  If Len(Target) <> 16 Then Exit Sub
  Application.EnableEvents = False
  t(1) = Mid(Target, 1, 4)
  t(2) = Mid(Target, 5, 4)
  t(3) = Mid(Target, 9, 4)
  t(4) = Mid(Target, 13, 4)
  Target = t(1) & "-" & t(2) & "-" & t(3) & "-" & t(4)
  Application.EnableEvents = True
End Sub

Hej bak
undskyld den lange svartid.
Jeg har indsat koden som du skrev, og jeg har markeret kolonnen og sat formatet til tekst. Men den skriver de 16 cifre ud i et. Hvor går det mon galt ?

Hvis du sat koden ind i arket eget kodemodul, makroer er slået til, cellerne formateret som tekst og der er nøjagtigt 16 karakterer, så melder jeg pas :-)
Det virker fint her.

www.tbdl.dk/excel/deling.xls

Ohhh....det virker i kolonne A.....jeg har problemet i kolonne I....og havde troet at jeg lige kunne ændre range fra A til I....men det er ikke nok...eller ?

okay...det skal hedde > 9 så.....yes...nu er den der.....super

Det virker bare helt perfekt.....stik mig et svar bak

ok :-)