Wie importiert man Geburtstage von Excel in den Outlook-Kalender?

Author: Xiaoyang Last Modified: 2025-08-06

Wenn Sie eine lange Liste mit Geburtstagsinformationen in einem Arbeitsblatt haben und diese Geburtstage nun als Ereignisse in Ihren Outlook-Kalender importieren möchten, wie könnten Sie diese Aufgabe mit einigen schnellen Methoden bewältigen?

Geburtstage von Excel in den Outlook-Kalender mit VBA-Code importieren

Normalerweise gibt es keinen direkten Weg, Geburtstage in den Outlook-Kalender zu importieren. Hier werde ich einen VBA-Code erstellen, um dieses Problem zu lösen. Bitte gehen Sie wie folgt vor:

1. Öffnen Sie das Arbeitsblatt, das die Geburtstage enthält, die Sie in Outlook importieren möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Geburtstage in den Outlook-Kalender importieren

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3. Noch im Fenster Microsoft Visual Basic for Applications klicken Sie auf Extras > Verweise. Aktivieren Sie im erscheinenden Dialogfeld Verweise – VBAProject die Option Microsoft Outlook 16.0 Object Library aus der Liste der verfügbaren Verweise, siehe Screenshot:

4. Klicken Sie dann auf OK, um dieses Dialogfeld zu schließen. Drücken Sie jetzt die F5-Taste, um diesen Code auszuführen, und ein Eingabeaufforderungsfenster erscheint. Wählen Sie bitte die Spalten für Namen und Geburtstag aus, siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche OK, und die Geburtstage werden sofort in den Outlook-Kalender importiert. Sie können Ihr Outlook starten, um das Ergebnis anzuzeigen, siehe Screenshot:

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: