Ich hoffe einer von Euch kann mir helfen.
Mein Problem: ich gebe in die Textbox "BGAusgegebenAm" eine Zeichenfolge ein. Beim Verlassen der Textbos wird die Eingabe wie folgt formatiert:
Private Sub BGAusgegebenAm_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(BGAusgegebenAm) Then
If Not IsNumeric(BGAusgegebenAm) Then
MsgBox "Kein Datum"
Cancel = True
Else
If InStr(BGAusgegebenAm, ".") = 0 Then
If Len(BGAusgegebenAm.Value) = 6 Then BGAusgegebenAm.Value = Left(BGAusgegebenAm.Value, 4) & "20" & Right(BGAusgegebenAm.Value, 2)
BGAusgegebenAm.Value = Left(BGAusgegebenAm.Value, 2) & "." & Mid(BGAusgegebenAm.Value, 3, 2) & "." & Right(BGAusgegebenAm.Value, 4)
If Not IsDate(BGAusgegebenAm) Then MsgBox "Kein Datum"
Cancel = True
End If
End If
End If
End Sub
Jetzt möchte ich, dass beim Verlassen der Textbox zusätzlich eine Frist berechnet wird, sprich "BGAusgegebenAm" + 3 Monate - 1 Tag und das Ergebnis in der Textbox "BGGueltigBis".
Wie ist das möglich? Ich verzweifel noch...
Danke im Voraus
Grüße
Marco