Excel VBA

[derHoepp]

Moin Tom,

Die Datei ist egal, es kommt einzig auf den Inhalt der Textbox an.

Viele Grüße
derHoepp

[Gast 123]

Hallo


Sorry, mein 1. Vorschlag war ungetestet.  So klappt es jetzt bei mir!!   Einfach eine 2. Variable nehmen als Variant!

mfg Gast 123

Code:

Private Sub CommandButton1_Click()
Dim datum as Variant
datum = TextBox_Ausbildungsbeginn_VEP_Amtshilfe.Value
If IsDate(datum) Then
   Find.Offset(0, 49).Value = CDate(datum)
Else
   MsgBox "kein gültiges Datum!"
End If
End Sub