Datumsformat abfragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then If Right(Range("F5"), 1) = "." Then Exit Sub Else MsgBox "Bitte geben Sie das Datum im Format DD.MM. (Tag.Monat.) ein und vergessen Sie _ den letzten Punkt nicht", vbInformation, "Hinweis Datumsformat" Range("F5").Value = "?.?." End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then On Error GoTo ERREXIT Application.EnableEvents = False 'Ereignisverarbeitung aus If Right(Target, 1) = "." Then 'nix passiert Else MsgBox "Bitte geben Sie das Datum im Format DD.MM. (Tag.Monat.) ein " _ & "und vergessen Sie den letzten Punkt nicht", _ vbInformation, "Hinweis Datumsformat" Target.ClearContents End If End If ERREXIT: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$5" Then On Error GoTo ERREXIT Application.EnableEvents = False 'Ereignisverarbeitung aus If Right(Target, 1) = "." Then 'nix passiert Else MsgBox "Bitte geben Sie das Datum im Format DD.MM. (Tag.Monat.) ein " _ & "und vergessen Sie den letzten Punkt nicht", _ vbInformation, "Hinweis Datumsformat" Target.ClearContents Range("F5").Select End If End If ERREXIT: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target "" Then Select Case Target.Row Case 5 To 26 If Trim(Cells(3, Target.Column).MergeArea(1)) = "Datum" Then If Right(Target, 1) "." Then MsgBox "Bitte geben Sie das Datum im Format DD.MM. (Tag.Monat.) ein " _ & "und vergessen Sie den letzten Punkt nicht.", _ vbInformation, "Hinweis Datumsformat" Application.EnableEvents = False Target = "" Target.Select Application.EnableEvents = True End If End If End Select End If End If End Sub

Hallo Peter,
Warum nicht von Anfang an die Anforderung möglichst genau beschreiben? z.B. so:
Ich möchte den Benutzern die Möglichkeit geben in Zellen, die ein Datum des laufenden Jahres enthalten sollen die Eingabe in der verkürzten Form von Tag.Monat. (mit einem Punkt am Ende!) zu erlauben und diese automatisch durch das laufende Jahr zu ergänzen. Sie sollen aber auch ein vollständiges Datum des laufenden Jahres eingeben können Tag.Monat.Jahr
Die Zelle soll anschliessend ein gültiges Datum des laufenden Jahres enthalten.
Es soll für alle Zellen gelten, deren Zeilennummer > 3 ist und die eine Spaltenüberschrift "Datum" (u.U. verbundene Zelle!) in Zeile 2 aufweisen!
Entspricht die Eingabe nicht dem Format Tag.Monat. oder Tag.Monat.Jahr, soll eine Fehlermeldung mit einem verständlichen Hinweis erfolgen und die Eingabe gelöscht werden.
Daraus könnte man dann diesen Code konstruieren (und natürlich Testen!):

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If IsDate(Target) And Year(Target) = Year(Date) Then Exit Sub
If Target.Row > 3 Then
Application.EnableEvents = False
If Cells(2, Target.Column).MergeArea(1) = "Datum" Then
If IsDate(Target.Text & Year(Date)) Then
Application.EnableEvents = False
Target = CDate(Target & Year(Date))
Else
MsgBox "Aus der Eingabe [" & Target.Text & _
"] kann kein gültiges Datum gebildet werden!" & vbCrLf & _
"Beachten Sie das Format [DD.MM.] (inkl. Punkt am Ende!)", vbExclamation, _
"Datumsprüfung auf " & Year(Date)
Application.Undo
End If
End If
Application.EnableEvents = True
End If
End Sub

Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumsformat abfragen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread