Altersangabe ohne Kommastellen
21.01.2005 22:50:01
Basti
Private Sub CommandButton1_Click()
Sheets("tabelle1").Activate
Range("a1").Select
frm = UserForm1
With frm
ActiveCell.Value = TextBox1.Value
End With
Dim datum1 As Date
datum1 = TextBox1
ActiveCell.Offset(1, 0).Value = DateDiff("y", Now, datum1) / (365 * -1)
End Sub
Gruß Basti