Ausgabewert einer MsgBox in Zelle speichern
16.09.2004 17:48:48
JörgR.
komme bei folgendem Problem nicht weiter:
"MsgBox "Wochenbeginn lautet: Montag, " & d" und genau dieses "d" soll dann in
Zelle C95 auftauchen, mein nächstes Problem ist dann, es soll natürlich auch
ein Montag sein, ansonsten als "fehler" bewertet werden...
Wer hat eine Idee?
Vielen Dank.
Hier mein bisheriger Code:
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
Anzeige