Wie sucht und ersetzt man den Terminbetreff im Outlook-Kalender?
Das Suchen und Ersetzen des Terminbetreffs im Outlook-Kalender ist hilfreich, wenn Sie feststellen, dass einige Betreffs durch denselben Text in großer Zahl ersetzt werden müssen. Oder das Wort „Kopie“ im Betrefffeld nach dem Datenimport in Outlook ersetzen. Dieser Artikel bietet Ihnen VBA-Code zum Suchen und Ersetzen mehrerer Terminbetreffs. Weitere Details finden Sie hier.
Suchen und Ersetzen des Terminbetreffs mit VBA-Code
Suchen und Ersetzen des Terminbetreffs mit VBA-Code
In diesem Abschnitt können Sie den Terminbetreff wie folgt mit VBA-Code suchen und ersetzen.
1. Zuerst müssen Sie die Makroeinstellungen in Ihrem Outlook auf niedrig setzen.
1) Klicken Sie in Outlook 2010 und 2013 auf „Datei“ > „Optionen“. Im Dialogfeld „Outlook-Optionen“ klicken Sie auf „Trust Center“ in der linken Leiste und dann auf die Schaltfläche „Einstellungen für das Trust Center“.
Im Dialogfeld „Trust Center“ klicken Sie auf „Makro-Einstellungen“ in der linken Leiste, wählen Sie dann die Option „Alle Makros aktivieren“ im Abschnitt „Makro-Einstellungen“ aus und klicken Sie auf die Schaltfläche „OK“. Siehe Screenshot:
2) In Outlook 2007 klicken Sie bitte auf „Extras“ > „Trust Center“. Im Dialogfeld „Trust Center“ klicken Sie auf „Makro-Einstellungen“ in der linken Leiste, wählen Sie dann die Option „Keine Sicherheitsüberprüfung für Makros“ aus und klicken Sie auf die Schaltfläche „OK“.
2. Drücken Sie die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
3. Doppelklicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „Projekt1“ > „Microsoft Outlook-Objekte“ > „ThisOutlookSession“, um den VBA-Editor zu öffnen. Siehe Screenshot:
4. Kopieren und fügen Sie den folgenden VBA-Code in den VBA-Editor ein. Drücken Sie dann die Taste „F5“, um den Code auszuführen.
VBA: Suchen und Ersetzen des Terminbetreffs
Sub FindReplaceAppointment()
Dim oApp As Outlook.Application
Dim oCalFolder As Outlook.MAPIFolder
Dim oAppt As Outlook.AppointmentItem
Dim sOldText As String
Dim sNewText As String
Dim iCalChangedCount As Integer
Set oApp = Outlook.Application
MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
sOldText = InputBox("What is the text string that you would like to replace?")
sNewText = InputBox("With what would you like to replace it?")
' Check to be sure a Calendar folder was selected
Do
If Not (oCalFolder Is Nothing) Then
If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
End If
MsgBox ("Please select a calendar folder from the following list.")
Set oCalFolder = Application.Session.PickFolder
On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
If InStr(oAppt.Subject, sOldText) <> 0 Then
Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
oAppt.Save
iCalChangedCount = iCalChangedCount + 1
End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
ErrHandler:
MsgBox ("Macro terminated.")
End Sub
5. Nachdem Sie den Code ausgeführt haben, erscheint ein Dialogfeld „Microsoft Outlook“. Klicken Sie auf die Schaltfläche „OK“.
6. Geben Sie im zweiten Dialogfeld „Microsoft Outlook“ den Text ein, den Sie ersetzen möchten, und klicken Sie dann auf die Schaltfläche „OK“.
7. Geben Sie im dritten Dialogfeld „Microsoft Outlook“ den Text ein, den Sie als Ersatz verwenden möchten, und klicken Sie auf „OK“.
Notiz: Wenn Sie alle Wörter „Kopie“ aus dem Betreff im angegebenen Kalender entfernen möchten, lassen Sie dieses Feld leer.
8. Klicken Sie im folgenden Dialogfeld auf die Schaltfläche „OK“.
9. Wählen Sie im Dialogfeld „Ordner auswählen“ Ihren Kalender unter dem angegebenen E-Mail-Konto aus und klicken Sie dann auf die Schaltfläche „OK“. Siehe Screenshot:
10. Dann erscheint ein Dialogfeld, das Sie darüber informiert, dass der Austausch erfolgreich war. Klicken Sie bitte auf die Schaltfläche „OK“.
11. Alle Texte in den Betreffs Ihres ausgewählten Kalenders wurden durch den neuen Inhalt ersetzt.
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 ...
