Outlook: So entfernen Sie doppelte Kalendereinträge

Author Sun Last modified 2025-08-26

Manchmal gibt es doppelte Kalendereinträge, wenn wir Ereignisse von anderen Geräten importieren. Um die doppelten Kalendereinträge zu entfernen, stellt dieses Tutorial zwei verschiedene Methoden vor: eine besteht darin, die Duplikate einzeln zu entfernen, wenn es nur wenige sind, die andere nutzt VBA, um alle Duplikate auf einmal zu entfernen.

Doppelte Kalendereinträge manuell einzeln entfernen

VBA zum Entfernen von doppelten Kalendereinträgen auf einmal

Doppelte Kalendereinträge manuell einzeln entfernen

Um doppelte Kalendereinträge einzeln zu entfernen, müssen Sie sie zunächst in einer bestimmten Reihenfolge auflisten, um die Duplikate klar zu sehen, und dann entfernen Sie sie nacheinander.

1. Normalerweise befindet sich der Kalender in der Ansicht "Kalender". Aktivieren Sie den Kalender, aus dem Sie Duplikate entfernen möchten, und klicken Sie dann auf "Ansicht" > "Ansicht ändern" > "Liste".

steps on manually removing duplicates calendar items one by one

Jetzt wird der Kalender als Liste angezeigt.

2. Legen Sie dann eine Bedingung fest, die Sie verwenden, um zu vergleichen, ob die Einträge doppelt sind, zum Beispiel, indem Sie überprüfen, ob die Einträge denselben Betreff haben. Klicken Sie auf "BETREFF" in der Kalenderliste, dann werden alle Einträge mit demselben Betreff zusammen angeordnet.

3. Nun können Sie die Einträge mit demselben Betreff nacheinander entfernen, indem Sie mit der rechten Maustaste darauf klicken und im erscheinenden Kontextmenü auf "Löschen" klicken.

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt:

Intelligente E-Mail-Antworten
Optimierter Inhalt
Schlüsselwortbasierte Entwürfe
Intelligente Inhaltserweiterung
E-Mail-Zusammenfassung
Mehrsprachige Übersetzung

Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!

VBA zum Entfernen von doppelten Kalendereinträgen auf einmal

Hier wird ein VBA-Code vorgestellt, der alle doppelten Kalendereinträge in einem Kalenderordner in verschiedenen Fällen entfernen kann.

1. Drücken Sie die Tasten "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 kopieren Sie den folgenden Code in das Modul.

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

In diesem VBA werden alle Duplikate in der Kategorie "Datum" durch Vergleich des Betreffs, des Ortes, des Textes und der Kategorie entfernt. Sie können diese je nach Bedarf ändern.

steps on using VBA to remove duplicates calendar items at once time

3. Dann drücken Sie die TasteF5" oder klicken Sie auf Ausführen, um den Code auszuführen. Ein Dialogfeld "Makros" erscheint, wählen Sie "RemoveDuplicateCalendar" und klicken Sie auf "Ausführen". .

Dann wurden die doppelten Einträge in der Kategorie "Datum" entfernt.

VBA: Alle doppelten Kalendereinträge über 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, die denselben Betreff, denselben Ort, denselben Text und dieselbe Kategorie in jeder Kategorie haben, entfernt.

Hinweis: Das obige VBA funktioniert in Kalenderordnern einschließlich Unterordnern.

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Gehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen