Hallo zusammen

in meinem Code werden nicht alle Kalendereinträge gefunden. Problem ist, das nur die Einträge gefunden werden bis vor 2 Wochen. 
Quasie heute - 2 Wochen. Hat da jemen eine Idee was das Problem sein könnte?

Public Sub SetEventSettings()
    Dim Appt As Object
    Dim Items As Object
    
    Set Items = Session.GetDefaultFolder(olFolderCalendar).Items
    
    For Each Appt In Items
        On Error Resume Next
        Select Case Appt.Subject
            Case "Lernzeit", "Nachrichten abarbeiten", "Preparation time for", "Machen Sie eine Pause"
                With Appt
                    .Categories = "Viva"
                    .ReminderSet = False
                    .Sensitivity = olPrivate
                    .Save
                End With
        End Select
    Next
    
    Set Items = Nothing
    Set Appt = Nothing
End Sub