Herbers Excel-Forum - das Archiv
Datum schreiben
- Datum schreiben von Spenski vom 21.06.2015 19:56:04
- AW: Datum schreiben - von Sepp am 21.06.2015 19:58:52
- AW: Datum schreiben - von {Boris} am 21.06.2015 20:08:08
- AW: Datum schreiben - von Sepp am 21.06.2015 20:34:31
- AW: Datum schreiben - von Sepp am 21.06.2015 20:34:31
- AW: Datum schreiben - von {Boris} am 21.06.2015 20:08:08
- AW: Datum schreiben - von Hajo_Zi am 21.06.2015 20:00:35
- AW: Datum schreiben - von Spenski am 21.06.2015 20:25:48
 |
Betrifft: Datum schreiben
von: Spenski
Huhu
mal ne kleine Frage am Rande.
Kann man Excel dazu erziehen automatisch ein Datum zu schreiben wenn ich zb nur 121215 eingebe und es dann 12.12.2015 angezeigt wird?
mfg
Christian
 |
Betrifft: AW: Datum schreiben
von: Sepp
Hallo Christian,
ja, geht per VBA ist aber eigentlich Gemurkse. Wie soll Excel den Wissen, ob du eine Zahl oder ein Datum meinst, wobei ein Datum natürlich auch eine Zahl ist. Gib doch einfach 12-12-15 ein und Excel interpretiert es als Datum.
Gruß Sepp
|
Betrifft: AW: Datum schreiben
von: {Boris}
Hi Sepp,
...ich finde, Du gehst hier mit diesem Wunsch etwas scharf ins Gericht ;-))
Ich finde es schon angenehm, ein Datum eben genau auf die gewünschte Art eingeben zu können.
Halt irgendwas in dieser Art:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dDate As Date
On Error GoTo ERR_HANDLER
With Target
If .Count = 1 Then
If .Column = 3 Then 'wirkt in Spalte C (=3)
If IsNumeric(Target) Then
dDate = CDate(Format(Target, "00-00-00"))
Application.EnableEvents = False
Target = dDate
End If
End If
End If
End With
ERR_HANDLER:
Application.EnableEvents = True
End Sub
VG, Boris
|
Betrifft: AW: Datum schreiben
von: Sepp
Hallo Boris,
hast schon Recht, aber oft macht man sich damit halt Probleme, die man vorher gar nicht hatte.
Dein Code funktioniert, allerdings gibt es "seltsame" Ergebnisse, wenn der Nutzer in eine Zelle eine falsche Eingabe macht. Hab in etwas angepasst (Target.Text stat Target), dann lappt es wieder.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dDate As Date
On Error GoTo ERR_HANDLER
With Target
If .Count = 1 Then
If .Column = 3 Then 'wirkt in Spalte C (=3)
If IsNumeric(Target.Text) Then
dDate = CDate(Format(Target, "00-00-00"))
Application.EnableEvents = False
Target = dDate
End If
End If
End If
End With
ERR_HANDLER:
Application.EnableEvents = True
End Sub
Gruß Sepp
|
Betrifft: AW: Datum schreiben
von: Hajo_Zi
Hallo Christian,
wenn es nur um Anzeige geht.
Tabelle1
| A | |
| 10 | 12.12.15 |
| 11 |
| Zahlenformate | ||
| Zelle | Format | Wert |
| A10 | '00"."00"."00 | 121215 |
| Excel-Inn.de |
| Hajo-Excel.de |
| XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
| Add-In-Version 19.04 einschl. 64 Bit |
|
Betrifft: AW: Datum schreiben
von: Spenski
Geschrieben am: 21.06.2015 20:25:48
Danke euch. Habe Boris seine variante genommen.
gruß
| |