Outlook: So entfernen Sie doppelte Kalendereinträge

Manchmal treten beim Importieren von Terminen aus anderen Geräten doppelte Kalendereinträge auf. Um diese Duplikate zu entfernen, stellt dieses Tutorial zwei verschiedene Methoden vor: eine manuelle Methode zum schrittweisen Entfernen, wenn nur wenige Duplikate vorhanden sind, und eine Methode unter Verwendung von VBA, um alle Duplikate auf einmal zu entfernen.

Kalendereinträge manuell Duplikate entfernen einzeln

VBA zum Duplikate entfernen aller Kalendereinträge auf einmal

---

Kalendereinträge manuell Duplikate entfernen einzeln

Um doppelte Kalendereinträge einzeln zu entfernen, zeigen Sie diese zunächst in einer geeigneten Reihenfolge an, um Duplikate eindeutig zu erkennen, und löschen sie anschließend nacheinander.

1. Normalerweise befindet sich der Kalender in der Kalenderansicht. Wählen Sie den Kalender aus, aus dem Sie Duplikate entfernen möchten, und klicken Sie auf „Ansicht“ > „Ansicht ändern“ > „Liste“.

Der Kalender wird jetzt als Liste angezeigt.

2. Geben Sie anschließend ein Kriterium an, anhand dessen geprüft werden soll, ob Einträge Duplikate sind – beispielsweise, ob sie denselben Betreff aufweisen. Klicken Sie in der Kalenderliste auf „BETREFF“, um alle Einträge mit identischem Betreff nebeneinander zu gruppieren.

3. Nun können Sie Einträge mit identischem Betreff einzeln entfernen, indem Sie mit der rechten Maustaste auf den jeweiligen Eintrag klicken und im Kontextmenü „Löschen“ auswählen.

---

---

VBA zum Duplikate entfernen aller Kalendereinträge auf einmal

Im Folgenden finden Sie VBA-Codebeispiele, mit denen sich alle doppelten Kalendereinträge in einem Kalenderordner unter verschiedenen Bedingungen entfernen lassen.

1. Drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie auf „Einfügen“ > „Modul“, um ein neues leeres Modul zu erstellen, und fügen Sie den folgenden Code darin ein.

VBA: Alle doppelten Kalendereinträge in einer bestimmten Kategorie entfernen

'Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change categories as you need in below script
    If xItem.Categories = "date" Then
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
    End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Dieses VBA-Skript entfernt alle Duplikate in der Kategorie „date“, indem es Betreff, Ort, Nachrichtentext und Kategorie miteinander vergleicht – und Sie können diese Vergleichskriterien ganz nach Ihren Bedürfnissen anpassen.

3. Drücken Sie anschließend „F5“ oder klicken Sie auf „Ausführen“, um den Code zu starten. Es erscheint das Dialogfeld „Makros“ – wählen Sie „RemoveDuplicateCalendar“ aus und klicken Sie auf „Ausführen“.

Die doppelten Einträge in der Kategorie „date“ wurden nun entfernt.

VBA: Alle doppelten Kalendereinträge übergreifend über alle Kategorien hinweg entfernen

Sub RemoveDuplicateCalendar()
'UpdatebyExtendoffice20220413
  Dim xStores As Stores
  Dim xStore As Store
  Dim xRootFolder As Folder
  Dim xFolder As Object
  Set xStores = Application.Session.Stores
  For Each xStore In xStores
    Set xRootFolder = xStore.GetRootFolder
    For Each xFolder In xRootFolder.Folders
      Call ProcessFolders(xFolder)
    Next
  Next
  Set xStores = Nothing
End Sub

Sub ProcessFolders(ByVal CurrentFld As Folder)
  Dim xDictionary As Object
  Dim i As Long
  Dim xItem As Object
  Dim xKey As String
  Dim xSubFld As Folder
  On Error Resume Next
  If CurrentFld.DefaultItemType <> olAppointmentItem Then Exit Sub
  Set xDictionary = CreateObject("Scripting.Dictionary")
  For i = CurrentFld.Items.Count To 1 Step -1
    Set xItem = CurrentFld.Items.Item(i)
    'change the comparing items as you need
      xKey = xItem.Subject & xItem.Location & xItem.Body & xItem.Categories
      If xDictionary.Exists(xKey) = True Then
        xItem.Delete
      Else
        xDictionary.Add xKey, True
      End If
  Next i
  For Each xSubFld In CurrentFld.Folders
    ProcessFolders xSubFld
  Next
End Sub

Wenn Sie diesen Code ausführen, werden alle Duplikate entfernt, die innerhalb derselben Kategorie denselben Betreff, denselben Ort, denselben Nachrichtentext und dieselbe Kategorie aufweisen.

HinweisDas oben genannte VBA funktioniert im Kalenderordner – einschließlich aller seiner Unterordner.