Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat

Datumsformat
02.03.2005 17: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
Anzeige
AW: Datumsformat
02.03.2005 18:05:15
Serge
Probiers mal mit ZellformatBenutzerdefiniert:
TT.MM.
Serge
AW: Datumsformat / klappt nicht
02.03.2005 18: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 18:15:25
Rolf
Hallo Serge
Klappt leider nicht.
Es soll möglichst auch bestehende Eingaben umwandeln.
Gruss Rolf
AW: Datumsformat
02.03.2005 18: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!

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige