TextBox2 steht Geburtsdatum drin. Kann man in TextBox3 automatisch das Alter mit ausgeben?
LG jürgen
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim gebDatum As Date
gebDatum = CDate(TextBox1.Value)
TextBox3.Value = WorksheetFunction.RoundDown((Now() - gebDatum) / 365, 0)
End Sub
Gruß WernerPrivate Sub UserForm_Initialize()
TextBox2.Value = Sheets("Tabelle1").Range("B1").Value
TextBox3.Value = "Alter: " & _
WorksheetFunction.RoundDown((Now() - CDate(TextBox2)) / 365, 0) _
& " Jahre"
End Sub
Gruß Werner