Datum aus Zelle lesen.
18.02.2008 02:07:00
miguel
ich bin der absolute Anfänger.
Ich versuche ein kleines Program zu schreiben, das ein Datum aus einer Zelle liest und prüft ob es korrekt ist. Das ist was ich geschrieben habe:
Private Sub CommandButton1_Click()
Dim start As Date
start = Range("a1").Value
If Day(start) 31 Then
MsgBox "ungültiges Datum!"
Range("a1").SetFocus
End If
End Sub
Natürlich funktioniert es nicht und der debugger meint dass es an der fetten Zeile liegt.
Es wäre sehr nett wenn ihr mir ein bisschen orientieren könntet.
Grüsse,
Miguel.
Anzeige