Hallo Ihr,
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.