aktueller Monat
04.01.2005 06:49:12
Erich
ich suche nach einer Möglichkeit, bei der in Spalte A kein Datum
eingegeben werden darf, das älter als der laufende Monat ist. Per VBA
bin ich auf diesem Weg (heute müsste die Eingabe als mind. der 1.1.05 sein):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
If ActiveCell.Date <= Month(Date) Then
MsgBox "Hilfe"
End If
End Sub
Wie müsste ich den Code abändern, damit die Eingabe mit mind. 1.1.05 "erzwungen" wird!
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de
Datum