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"