Runde Geburtstage
10.01.2007 18:19:00
ABO
Ich müste das nachfolgende Makro ändern!
Funktioniert jedoch leider nicht so wie ich das will!
Es müssen folgende Runde Geburtstage angezeigt werden:
50 Jahre
60 Jahre
65 Jahre
70 Jahre
75 Jahre
80 Jahre
85 Jahre
ab 90 Jahre jährlich
bei dem nachfolgendem Makro sind jedoch alle Runden Geb. bis 60 Jahren in 10er Schritten. Ab 60 Jahren in 5er Schritten und ab 80 Jahren in 1er Schritten.
Function GebRund(wert)
If Not IsDate(wert) Or IsNull(wert) Then
GebRund = Null
Else
tmp = GebAlter(wert)
If tmp >= 60 Then
tmp2 = tmp Mod 5
Else
tmp2 = tmp Mod 10
End If
If tmp > 80 Then
tmp2 = tmp Mod 1
End If
If tmp2 = 0 Then
GebRund = "X"
Else
GebRund = ""
End If
End If
End Function
Kann mir einer bei meinem Problem helfen?
Im voraus vielen Dank!!!
ABO