Kann mir jemand einen Tipp geben?
In einer kleinen VBA - Routine wird ein Wert per Inputbox abgefragt, später
mittels MsgBox ausgegeben und genau dieser Wert soll gleichzeitig in eine
Zelle geschrieben werden. ( automatisch ;-) )
Vielen Dank.
JörgR.
Private Sub CommandButton6_Click()
Dim d As Date
On Error GoTo fehler
Beginn:
d = InputBox("Geben Sie das Montagsdatum ein! (TT.MM.JJJJ)", _
"Datum eingeben")
If IsDate(d) And d >= "13.09.2004" Then
Else
MsgBox "Nur Eingaben ab 01.09.2004 möglich"
GoTo Beginn
End If
d = d
MsgBox "Wochenbeginn lautet: Montag, " & d
Exit Sub
fehler:
MsgBox "Sie haben kein gültiges Datum eingegeben!"
GoTo Beginn
End Sub