Datumeingabe als TT.MM.JJJJ erscheinen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Sophie
Dieses Bsp bezieht sich auf Spalte A:
1. Dieses Bsp "verlangt" die Werteingabe so:
TTMMJJJJ
Falsch wäre
TTMMJJ
2. zuerst allen betroffenen Zellen in Spalte A das Format Text zuweisen
3. dann diesen Code einfügen


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then '1 steht für Spalte A, 2 = B, 3 = C usw - musst du vielleicht anpassen (du verrätst ja nicht, in welcher Spalte deine Daten stehen)
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 2) & "." & Right(Target.Value, 4)
Target.NumberFormat = "m/d/yyyy" 'Zelle wird automatisch von Textformat auf Datumsformat umgestellt
Target.HorizontalAlignment = xlRight 'Wert wird rechts ausgerichtet
Application.EnableEvents = True
End If
End Sub

Konnte ich helfen?
Ciao
Thorsten

Hallo liebe Sophie,
...ich 01012000 eingebe, dass er das weiß und 01.01.2000 erscheinen lässt ?
Fragen über Fragen:
Wer ist er ?
Wo gibst Du das ein, in eine Zelle, eine Textbox, Userform... ?
Wie soll Excel diese Eingabe von einer 'normalen' Zahl unterscheidn ?
Was heisst erscheinen lassen ?... Willst Du mit dem Datum weiterrechnen
Beispiel in A1 steht 01012000 in B1 steht diese Formel:


=DATUM(RECHTS(A1;4);LINKS(RECHTS(A1;6);2);LINKS(A1;LÄNGE(A1)-6))

,d.h. mit B1 kannst Du wie mit einem Datum rechnen.
... oder, soll die Zelle nur so formatiert werden, d.h. Du machst keine Bezüge auf diese Zelle?
Dann kannst Du die Zelle A1 so formatieren: Benutzerdefiniert 00"."00"."0000
Gruss Hansueli

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim cCell As Range On Error Resume Next Application.EnableEvents = False For Each cCell In Target cCell.Value = DateSerial(Right(cCell, 4), Left(Right(cCell, 6), 2), Left(cCell, Len(cCell) - 6)) Next Application.EnableEvents = True Cancel = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'dieser Code wird nur ausgeführt, wenn ein Wert DER Zellen geändert wird, 'die in der folgenden Befehlszeile aufgeführt sind If Intersect(Target, Range("F8, J8, I25, M25")) Is Nothing Then Exit Sub If Target.Value = "" Then Exit Sub Application.EnableEvents = False Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 2) & "." & Right(Target.Value, 4) Target.NumberFormat = "m/d/yyyy" Target.HorizontalAlignment = xlRight Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Datumeingabe als TT.MM.JJJJ erscheinen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumeingabe als TT.MM.JJJJ erscheinen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread