Punkte im Datum automatisch setzen?

Computer: Software & Programmierung Office Software
1

Hallo liebes Forum,

gibt es eine Möglichkeit, eine Datumseingabe ohne Punkte automatsich mit Punkten zu versehen? Also nach Eingabe von z.B. 10121958 soll die Eingabe automatisch in das Format 10.12.1958 umgewandelt werden.
Kann jemand helfen?
Vielen Dank schonmal.

Viele Grüße

Achim

2

Grüezi Achim

gibt es eine Möglichkeit, eine Datumseingabe ohne Punkte
automatsich mit Punkten zu versehen? Also nach Eingabe von
z.B. 10121958 soll die Eingabe automatisch in das Format
10.12.1958 umgewandelt werden.
Kann jemand helfen?

Prinzipiell ist das mit VBA oder einer Hilfsspalte durch aus denkbar.
VBA kannst Du nach dem ähnlichen Schema tun wie hier für die Uhrzeit gezeigt:

http://www.wer-weiss-was.de/app/faqs/entry/2733?cont…

Mit einer Formel dann so wie hier:

Tabellenblatt: [MAPPE1]!Tabelle1
 │ A │ B │
──┼──────────┼────────────┤
1 │ 10121958 │ 10.12.1958 │
──┴──────────┴────────────┘
Benutzte Formeln:
B1: =--TEXT(A1;"00"".""00"".""0000")

Zahlenformate der Zellen im gewählten Bereich:
A1
haben das Zahlenformat: Standard
B1
haben das Zahlenformat: TT.MM.JJJJ

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Ansonsten kannst du das Datum auch über den Zifferblock eingeben und mit ‚-‘ oder ‚/‘ trennen.

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
3

Hallo,

Private Sub Worksheet\_Change(ByVal Target As Range)
On Error Resume Next
 If IsNumeric(Target.Value) And Len(Target.Value) = 8 Then
 Target.Formula = CDate(Left(Target.Value, 2) & "/" & Mid(Target.Value, 3, 2) & "/" & Right(Target.Value, 4))
 ElseIf IsNumeric(Target.Value) And Len(Target.Value) = 7 Then
 Target.Formula = CDate(Left(Target.Value, 1) & "/" & Mid(Target.Value, 2, 2) & "/" & Right(Target.Value, 4)) End If
End Sub

Dieses Makro kopierst Du im VBA-Editor in Deine Tabelle, dann wandelt es alle sieben und achtstelligen numerischen Eingaben in Daumswerte um. Aber natürlich ALLE diese Eingaben. Wenn diese Umwandlung nur für zB bestimmte Spalten gelten sol, musst Du natürlich vorher entsprechend abfragen!

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]