Formater indtastning i excel 2003

Hvis du indtaster det uden mellemrum, altså 2504052358 kan du formatere som brugerdefineret ##-##-## ##":"##
Cellen kan så ikke bruges i formler, da Excel ikke kan genkende den som dato og tidspunkt.

Så kan det ikke bruges, cellen skal kunne bruges som del af en formel senere, som dato og tid. Er der andre der har forslag ?

Mvh.
Christian_h

=(VENSTRE(A1;2)&"-"&MIDT(A1;3;2)&"-"&MIDT(A1;5;2))&" "&MIDT(A1;8;2)&":"&HØJRE(A1;2)
Hvis man har datoen stående i A1 og den altid tastes på denne måde.

Formateres som tal. Så giver NU() - cellens indhold da 366 hos mig, så der må kunne regnes med det!

Jeg kan ikke se, at du kan give selve cellen et format, så den fanger, at det er en dato og et tidspunkt, du har indtastet.

Hmm, ja den formaterer det, men ikke i den celle hvor det bliver indtastet, det skal virke på den måde at hvis man taster 250406 2056 i celle A1, når der så trykkes enter, skal cellens indhold ændres til 25-04-06 20:56

Mvh.

Christian_h

Så skal du nok over i noget VBA. Hvordan har du det med det?

Det må det gerne være, har arbejdet en del med Visual Basic, men det er længe siden, så det er lidt langt væk.

Christian_h

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

On Error GoTo fejl
        Range("IV1").Select
        ActiveCell.FormulaR1C1 = _
            "=(LEFT(RC[-255],2)&""-""&MID(RC[-255],3,2)&""-""&MID(RC[-255],5,2))&"" ""&MID(RC[-255],8,2)&"":""&RIGHT(RC[-255],2)"
        Range("IV1").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("IV1").Select
        Application.CutCopyMode = False
        Selection.Copy
        Range("A1").Select
        ActiveSheet.Paste
fejl:
Application.EnableEvents = True

End Sub

Koden skal ligge i This Workbook-modulet (ellers virker den ikke automatisk). Forudsætningen er, at datoen altid tastes i A1 og på den samme måde.

Ved nærmere eftersyn: pas på med denne kode, da den starter med at slå events-handleren fra.

Jeg prøver om jeg kan finde en anden måde at gøre det på og vender tilbage.

Beklager, men jeg kan simpelthen ikke få det til at virke! Æv, :(

Problemet med koden ovenfor er, at den efter indtastning, opretter en formel, der giver celleindholdet det ønskede format, kopierer denne celle, og sætter indholdet, ikke formlen, ind i den oprindelige celle. Det er imidlertid den omstændighed, at der ændres på indholdet i cellen, der udløser makroen og derfor bliver den ved at køre i ring uden at kunne "se", at den har udført sin opgave!

Håber, at der er andre, der kan hjælpe dig, men jeg tillader mig at tvivle.

Lukket