AW: Eingabe Datum,Ausgabe Lebensalter?
06.11.2009 12:03:59
Oberschlumpf
Huhu Rosi
So, sry, dass ich erst jetzt antworte....musste aber leider auch was anderes erledigen.
Der erste Teil is dann ja geklärt ;-)
Für mich (und vielleicht auch für den Einen oder der Anderen) kam es als Kritik rüber.
Ok...erledigt ;-)
Deine Irritation bzgl meines Codes ist allerdings....berechtigt..grins
Ich hatte nur den Gedanken: 1 jahr später = 1 Jahr älter
Nun habe ich den Code korrigiert.
Lade zuerst die Datei runter, und tausche dann den alten Code im WorkBookOpen-Ereignis gegen diesen aus:
Private Sub Workbook_Open()
Dim loZeile As Long, lstrDatum As String
With Sheets("Tabelle1") ' 0 Then
lstrDatum = .Range("C" & loZeile).FormulaLocal
lstrDatum = Right(lstrDatum, Len(lstrDatum) - 7)
lstrDatum = Left(lstrDatum, Len(lstrDatum) - 2)
If CDate(Left(lstrDatum, 6) & Year(Date))
Jetzt wird ein z Bsp am 07.11.? Geborener auch tatsächlich erst morgen ein Jahr älter.
Hilfts denn jetzt besser?
Ciao
Thorsten