Office: Alter berechnen mit AfterUpdate()

Hallo an alle,

Ich bin VBA Neuling und möchte mir in Excel eine Userform basteln.

Ich habe eine Textbox (11) für die Eingabe des Geburtstages und eine Textbox (12) in der das Alter ausgegeben werden soll. Hierfür habe ich in einer Userform folgenden Code verwendet, der erst mal auch funktioniert:

Private Sub TextBox11_AfterUpdate()
TextBox11 = Format(TextBox11, "dd.mm.yyyy")
TextBox12.Value = DateDiff("yyyy", CDate(Me.TextBox11), Date)
End Sub

Meine Fragen:

1.) Gibt es eine Möglichkeit, das Alter exakt zu berechnen? Denn wenn jemand am 26.07.1963 geboren ist, berechnet der Code das Alter mit 53, obwohl die Person erst 52 ist.

2.) Wenn man aus der Textbox das Geburtsdatum oder das Alter löschen und dann abspeichern möchte, kommt ein Laufzeitfehler 13 - Typen unverträglich und folgende Zeile ist gelb markiert:
TextBox12.Value = DateDiff("yyyy", CDate(Me.TextBox11), Date)

Gibt es eine Möglichkeit das Ganze mit einem anderen Code zu machen oder den bestehenden Code zu verbessern/ändern?

Da ich sehr geringes Wissen in VBA habe, bitte ich mitzuteilen, an welche Stelle ein anderer Code gesetzt werden muss, falls es sich um eine andere Stelle handeln sollte.

Um Fragen vorzubeugen, wieso jemand überhaupt das Geburtsdatum und/oder das Alter herauslöschen sollte: Es werden später mehrere Azubis vor der Eingabemaske sitzen, da unterlaufen halt mal Fehler und wenn die wegen der Fehlermeldung auf das VBA -Projekt kommen, wissen die nicht weiter.

Wäre für Hilfe sehr dankbar.

LG Karle

:)

 

das ist eben der Nachteil von VBA, Datediff ist da nicht komplett eingearbeitet und rechnet darum anders als in der Tabelle.


Tabelle2

	D	E
24	26.07.1963	52

verwendete Formeln
Zelle	Formel	Bereich	N/A
E24	=DATEDIF(D24;HEUTE();"y")

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 23.05 einschl. 64 Bit

 

Hallo Hajo,

danke für die schnelle Antwort. Daraus schließe ich, dass die Differenz auf keinen Fall exakt in VBA berechnet werden kann.

Wie verhält es sich denn bei meiner Frage 2 in Bezug auf die Fehlermeldung?

 

wenn es unbedingt VBA sein soll.
Code:

es fehlt die Prüfung ob TextBox isdate, würde ich vermuten.
Ich schaue nicht auf fremde Rechner um Code zu sehen.

 

Hallo Hajo,

vielen Dank ich werde es ausprobieren. Finde es gut dass Du nicht auf fremde Rechner schaust *grins

Auf meinem Rechner würdest Du keinen Code finden, denn ich stehe ganz am Anfang mit 2 Textboxen und das ist alles und den Code habe ich ja angegeben.

 

Ich lass den Thread offen, vielleicht findet ja jemand eine Lösung für meine Frage:

2.) Wenn man aus der Textbox das Geburtsdatum oder das Alter löschen und dann abspeichern möchte, kommt ein Laufzeitfehler 13 - Typen unverträglich und folgende Zeile ist gelb markiert:
TextBox12.Value = DateDiff("yyyy", CDate(Me.TextBox11), Date)

Gibt es eine Möglichkeit das Ganze mit einem anderen Code zu machen oder den bestehenden Code zu verbessern/ändern?

 

Gut mein Tipp hat Dir nicht gefallen. Ich vermute mal die anderen geben Dir den gleichen Tipp.
Ich bin dann raus.

 

tschüss *grins

 

Hallo Karle,

mein Vorschlag:
Code:

Gruß
Aloys

 

Hallo Aloys,

Du bist ne Wucht!!! Das klappt wunderbar und sogar richtig gerechnet.

Ich danke Dir sehr für Deine professionelle Hilfe und wünsche Dir ein schönes Wochenende.

LG Karle