Eingabebedingungen (Datum) für Zellwerte festlegen
21.02.2008 08:25:00
Silva
ich bin gestern Abend noch auf eine Hürde gestossen, nachdem ich mit eurere Hilfe auf den Code unten erstellen konnte
Nun möchte ich gerne das im Code fettgedruckte ("Datum" im Format TT/MM/YYYY) als Zusatzbedingung einfügen!!!
Die bedingung "x", "o" und "na" funktionieren tipptopp.
Wie füge ich die Bedingung "Datum" ein? so wie es jetzt ist, lässt es dann auf einmal alle Werte / Zahlen zu.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 17 And Target.Column = 9 And Target.Row "" Then
If Target.Value "x" And Target.Value "o" And Target.Value "na" And _
Target.Value Date Then
MsgBox "Bitte geben sie einen gültigen Wert ein"
Target.ClearContents
End If
End If
End If
End Sub
Vielen Dank,
Gruss Silva