Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlerbehandlung

Fehlerbehandlung
02.02.2006 18:59:38
Peter
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlerbehandlung
02.02.2006 21:05:23
HansHei
Hallo Peter,
weiß nicht was Dein Makro bewirken soll. Aber vereinfacht geht doch so: Gib mal 5-2-6 ein. Dann sollte das Datum erscheinen.
Gruß
Hans
wegen Makro weiter offen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige