Datumsformat

Forumthread: Datumsformat
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Datumsformat

Datumsformat

02.03.2005 18:58:41

Rolf

Hallo
Ganz einfache Frage:
Ich gebe ein Datum ein z.B. 6.2. (Jahr ist unwichtig)
In der Zelle soll immer 06.02. erscheinen wg. Sortierung.
Habe nirgends gefunden.
Danke

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datumsformat

02.03.2005 19:05:15

Serge
AW: Datumsformat / klappt nicht

02.03.2005 19:15:02

Rolf
AW: Datumsformat / klappt nicht

02.03.2005 19:15:25

Rolf
AW: Datumsformat

02.03.2005 19:17:36

Josef

AW: Datumsformat

02.03.2005 19:05:15

Serge

Probiers mal mit ZellformatBenutzerdefiniert:
TT.MM.
Serge

AW: Datumsformat / klappt nicht

02.03.2005 19:15:02

Rolf

Hallo Serge
Klappt leider nicht.
Es soll möglichst auch bestehende Eingaben umwandeln.
Gruss Rolf

AW: Datumsformat / klappt nicht

02.03.2005 19:15:25

Rolf

Hallo Serge
Klappt leider nicht.
Es soll möglichst auch bestehende Eingaben umwandeln.
Gruss Rolf

AW: Datumsformat

02.03.2005 19:17:36

Josef

Hallo Rolf!
Geht meines Erachtens nur mit VBA!
Folgender Code akzeptiert sowohl "6.2." als auch "6,2,", weil das
Komma für die Eingabe bequemer ist!
Er gilt für die Spalte "A"!
Ob die Eingabe ein sinnvolles Datum ist, wird nicht geprüft!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
If Target Like "*.*." Or Target Like "*,*," Then
Target.NumberFormat = "@"
Target = Replace(Target, ",", ".")
Target = Format(Left(Target, InStr(1, Target, ".") - 1), "00") & "." & _
Format(Mid(Replace(Target, ".", ""), InStr(1, Target, "."), 2), "00") & "."
End If
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!