Makro aus Excel 2003 nach Excel 2010
09.04.2013 09:32:48
Rosi
mit Eurer Hilfe wurde dieses Makro kreiert um nach Eingabe des Geburtsdatums das Lebensalter anzuzeigen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A3:A400")) Is Nothing Then 'If ActiveCell = "" Then Exit Sub If Not ActiveCell = "" Then Application.Run ("Aufruf") End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Geburtsdatum eingeben um Alterangezeigt zu bekommen
'Automatisierung der Altersanzeige in "DieseArbeitsmappe"
If InStr(Target.Address, ":") > 0 Or InStr(Target.Address, ";") > 0 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Count = 1 And Target.Column = 3 Then
If IsDate(Target) Or IsNumeric(Target) Then
Application.EnableEvents = False
If IsDate(Target) Then
If CDate(Left(Target, 6) & Year(Date))
Nach dem Umstieg auf Excel 2010 bekomme ich nun bei der Eingabe des Geburtsdatums lediglich die Datumszahl,z.B. 18320 für den 26.02.1950 statt dem Lebensalter 63 angezeigt.
Muss ich dieses Makro irgendwie anpassen/verändern?
Gruß Rosi