Hallo zusammen,
ich bin immer noch dran, meine UserForms zu optimieren.
Mit eurer Hilfe habe ich ja auch schon ein paar "Sonderlocken" implementieren können. Dafür erst mal herzlichen Dank an die Community.
Wo ich gerade dran koche ist die Kündigung eines Mitgliedes.
In meiner Userform habe ich eine TextBoxKuendEing, in der ich das Datum des Kündigungs-Eingangs eingebe.
Nun hat jeder Verein ja auch eine Kündigungsfrist (bei uns bis zum 30.11. des Jahres). Dann wird die Kündigung zum Jahresende wirksam.
Leider kam es in den vergangenen Jahren immer wieder mal vor, dass eine Kündigung zu spät eintrudelt, die Kündigung also erst zum Ende des Folgejahres wirksam wird.
Bislang habe ich nur den Code für das Eingangsdatum:
Mir fehlt jetzt noch die Berechnung des Ende-Datums...
Wenn TextBoxKuendEing.Text > 30.11. des aktuellen Jahres, dann TextBoxKuendExit.Text = 31.12.Folgejahr
Nur wie bekomme ich das in VBA gedengelt? Könnt ihr mir da bitte noch mal helfen???
Viele Grüße
Rigattoni
ich bin immer noch dran, meine UserForms zu optimieren.
Mit eurer Hilfe habe ich ja auch schon ein paar "Sonderlocken" implementieren können. Dafür erst mal herzlichen Dank an die Community.
Wo ich gerade dran koche ist die Kündigung eines Mitgliedes.
In meiner Userform habe ich eine TextBoxKuendEing, in der ich das Datum des Kündigungs-Eingangs eingebe.
Nun hat jeder Verein ja auch eine Kündigungsfrist (bei uns bis zum 30.11. des Jahres). Dann wird die Kündigung zum Jahresende wirksam.
Leider kam es in den vergangenen Jahren immer wieder mal vor, dass eine Kündigung zu spät eintrudelt, die Kündigung also erst zum Ende des Folgejahres wirksam wird.
Bislang habe ich nur den Code für das Eingangsdatum:
Visual Basic-Quellcode
- '####################################
- '### Kündigung
- '####################################
- Private Sub TextBoxKuendEing_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- If IsDate(TextBoxKuendEing.Text) Then
- TextBoxKuendEing.Text = Format(TextBoxKuendEing.Text, "DD.MM.YYYY")
- Else
- MsgBox "Kein gültiges Datum!", vbCritical
- End If
- End Sub
Mir fehlt jetzt noch die Berechnung des Ende-Datums...
Wenn TextBoxKuendEing.Text > 30.11. des aktuellen Jahres, dann TextBoxKuendExit.Text = 31.12.Folgejahr
Nur wie bekomme ich das in VBA gedengelt? Könnt ihr mir da bitte noch mal helfen???
Viele Grüße
Rigattoni