Fehlerbehandlung
02.02.2006 18:59:38
Peter
ich habe folgendes Makro zur vereinfachten Datumseingabe gefunden.
Jedoch habe ich festgestellt, das bei der Eingabe eines reinen Datum
das Makro für die gleiche Zelle nicht mehr funktioniert.
Mein Versuch diesen Fehler zu beseitigen ist fehlgeschlagen.
Wer kann helfen?
Danke Peter
Option Explicit
Public
Sub AusZahlDatum(ByVal Target As Excel.Range)
Dim a, t As Integer, m As Integer, j As Integer
On Error GoTo Fehler
a = Target.Value2
If (IsDate(a) = False) Then Err.Raise 0
'If (IsNumeric(a) = False) Then Exit Sub
If (Mid$(a, 5, 4) < 1000) And (a < 10000 Or a > 999999) Then Exit Sub
a = Format(CStr(a), "000000")
t = Mid$(a, 1, 2)
m = Mid$(a, 3, 2)
j = Mid$(a, 5, 4)
a = DateSerial(j, m, t)
Application.EnableEvents = False
Target.Value = a
Target.NumberFormat = "dd.mm.yy"
Fehler:
MsgBox "F A L S C H E Datumseingabe!"
Application.EnableEvents = True
Target.Clear
End Sub
Anzeige