if..Then......ElseIf.....will net so wie ich???

Private Sub Worksheet_Activate()
Dim iZeile As Long
Dim Alter As Integer
For iZeile = 5 To 1000
With Sheets("mitglieder")
If Cells(iZeile, 7) > 0 Then
Alter = DateDiff(interval:="yyyy", date1:=.Cells(iZeile, 7), date2:=Now)
Sheets("mitglieder").Cells(iZeile, 10) = Alter
Else: Cells(iZeile, 10) = ""
End If
End With
Next iZeile
With ActiveSheet.Cells(iZeile, 10)
If .Value <= "10" Then
.Value = "10"
ElseIf .Value > "10" <= "14" Then
.Value = "11"
Else
.NumberFormat = ""
End If
End With
End Sub