Ergebnis ist 0......statt das Alter???
18.05.2004 17:35:09
Peter S.
bin ja keine Leuchte in VBA aber warum wirft der nachstehende Code das Ergebnis 0 aus????
in Spalte G steht das Geburtsdatum ( ist auch als Datum definiert)
With Sheets("mitglieder")
Dim alter As Integer
alter = DateDiff(interval:="yyyy", date1:=Sheets("mitglieder").Range("G5:G1000").Value, date2:=Now)
Sheets("mitglieder").Range("J5:J1000") = alter
End With
Danke für Eure Hilfe
Peter S.