Outlook: So entfernen Sie doppelte Kalendereinträge
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".
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.
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 startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
