Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text in Datumswert umwandeln (ohne Punkteingabe)

Text in Datumswert umwandeln (ohne Punkteingabe)
05.01.2005 11:18:18
Peter
Hallo,
ich möchte die Zelleingabe in einem Tabellenblatt
(ohne Punkte) in einen reinen Datumswert umwandeln.
Jetzt weiß ich nicht weiter.
Peter

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Or Selection.Cells.Count > 1 Then Exit Sub
If Len(Target.Text) > 6 Then Target.ClearContents: Exit Sub
If Len(Target.Text) = 6 Then
Target.Value = Format(DateSerial(Right(Target.Text, 2), _
Mid(Target.Text, 3, 2), Left(Target.Text, 2)), "dd.mm.yy")
End If
Exit Sub
Fehler:
Target.ClearContents
Exit Sub
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Datumswert umwandeln (ohne Punkteingabe)
Boris
Hi Peter,
mal ganz quick and dirty - für Eingaben im Format:
TMMJJ
TTMMJJ
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
On Error GoTo errorhandler
Application.EnableEvents = False
Target = CDate(Format(Target, "0-00-00"))
Application.EnableEvents = True
Exit Sub
errorhandler:
Target.ClearContents
Application.EnableEvents = True
End Sub

Grüße Boris
AW: Antwort : Danke
05.01.2005 11:59:37
Peter
Danke,
wär ich nie drauf gekommen.
Peter
Anzeige

483 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige