Datumsformat

Bild

Betrifft: Datumsformat von: Rolf K.
Geschrieben am: 02.03.2005 17:58:41

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

Bild


Betrifft: AW: Datumsformat von: Serge
Geschrieben am: 02.03.2005 18:05:15

Probiers mal mit ZellformatBenutzerdefiniert:
TT.MM.
Serge


Bild


Betrifft: AW: Datumsformat / klappt nicht von: Rolf K.
Geschrieben am: 02.03.2005 18:15:02

Hallo Serge

Klappt leider nicht.
Es soll möglichst auch bestehende Eingaben umwandeln.

Gruss Rolf


Bild


Betrifft: AW: Datumsformat / klappt nicht von: Rolf K.
Geschrieben am: 02.03.2005 18:15:25

Hallo Serge

Klappt leider nicht.
Es soll möglichst auch bestehende Eingaben umwandeln.

Gruss Rolf


Bild


Betrifft: AW: Datumsformat von: Josef Ehrensberger
Geschrieben am: 02.03.2005 18:17:36

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!




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datumsformat"