Ich habe wegen meines Problems bereits im Archiv gestöbert, konnte aber leider keine passende Hilfe finden. Darum wende ich mich, als Excel-VBA Laie, vertrauensvoll an Euch.
Ich habe in einem UserForm eine TextBox, die vom Anwender ausschließlich mit einem Datumsformat (z. B. 01.01.10) gefüllt werden darf. Zwingend ist, dass das Datum immer mit 01.xx.xx beginnen muss.
Wie muss folgende Prozedur abgewandelt werden, damit, auch wenn der User 05.01.10 eingibt, in _ der TextBox 01.01.10 ausgegeben wird?
Private Sub TextBox1_Exit (ByVal Cancel As MSForms.ReturnBoolean)
If IsDate (TextBox1.Text) Then
TextBox1.Text = Format (CDate(TextBox1.Text), dd.mm.yy)
Else
MsgBox Bitte gültiges Datumsformat eingeben!
Cancel = True
End If
End Sub
Ich danke Euch bereits im Voraus für Eure Hilfe.
Gruß
Andreas