nachdem die Schleife jetzt stimmt (Danke an Matthias)....verstehe ich aber folgendes nicht.... die "IF"-Bedingung wird erkannt, das ERSTE "ElseIF" ebenso, jedoch die nachfolgenden nicht und der Wert wird bei allen auf "ab 11" gesetzt...wo liegt da der Fehler?
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
A = Sheets("mitglieder").Cells(iZeile, 10).Value
If A <= 10 Then
Cells(iZeile, 11).Value = "bis 10"
ElseIf A > 10 <= 14 Then
Cells(iZeile, 11).Value = "ab 11"
ElseIf A > 14 <= 18 Then
Cells(iZeile, 11).Value = "ab 15"
ElseIf A > 18 <= 29 Then
Cells(iZeile, 11).Value = "ab 19"
ElseIf A > 29 <= 40 Then
Cells(iZeile, 11).Value = "ab 30"
ElseIf A > 40 <= 50 Then
Cells(iZeile, 11).Value = "ab 41"
ElseIf A > 50 <= 60 Then
Cells(iZeile, 11).Value = "ab 51"
ElseIf A > 60 Then
Cells(iZeile, 11).Value = "ab 61"
End If
Next iZeile
End Sub
Daanke nochmals im Voraus
Peter S.