Wie erstellt man Termine aus Excel-Daten?
Angenommen, Sie haben eine Tabelle mit Terminen in einem Excel-Arbeitsblatt, wie im folgenden Screenshot gezeigt. Nun möchten Sie diese Daten in den Outlook-Kalender importieren. Wie können Sie diese Aufgabe schnell erledigen?
Termine aus Excel-Daten mit VBA-Code erstellen
Termine aus Excel-Daten mit VBA-Code erstellen
Um Termine aus Excel-Daten zu erstellen, können Sie den folgenden VBA-Code verwenden. Gehen Sie bitte wie folgt vor:
1. Starten Sie Outlook und halten Sie die ALT + F11-Tasten 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: Excel-Daten in Termine importieren:
Public Sub CreateOutlookApptz()
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xNameSpace As Outlook.NameSpace
Dim xCalendarFld As Outlook.MAPIFolder, xSubFolder As Outlook.MAPIFolder
Dim xCalendarStr As String
Dim I As Long
Dim xFileDialog As FileDialog
Dim xFilePath As String
Dim xExcelApp As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
On Error GoTo Err_Execute
Set xExcelApp = New Excel.Application
Set xFileDialog = xExcelApp.FileDialog(msoFileDialogFilePicker)
With xFileDialog
.Title = "Select a file"
.Filters.Add "Microsoft Excel", "*.xlsx"
End With
If xFileDialog.Show = 0 Then Exit Sub
xFilePath = xFileDialog.SelectedItems(1)
Set xWb = xExcelApp.Workbooks.Open(xFilePath)
Set xNameSpace = Outlook.Application.Session
Set xCalendarFld = xNameSpace.GetDefaultFolder(olFolderCalendar)
I = 2
Set xWs = xWb.Worksheets.Item(1)
xCalendarStr = xWb.Name
If FolderExist(xCalendarFld, xCalendarStr) = False Then
Set xSubFolder = xCalendarFld.Folders.Add(xCalendarStr, olFolderCalendar)
Else
Set xSubFolder = xCalendarFld.Folders(xCalendarStr)
End If
Do Until Trim(xWs.Cells(I, 1).Value) = ""
Set xAppointmentItem = xSubFolder.Items.Add(olAppointmentItem)
With xAppointmentItem
.Start = xWs.Cells(I, 5) + xWs.Cells(I, 6)
.End = xWs.Cells(I, 7) + xWs.Cells(I, 8)
.Subject = xWs.Cells(I, 1)
.Location = xWs.Cells(I, 2)
.Body = xWs.Cells(I, 3)
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = xWs.Cells(I, 9)
.ReminderSet = True
.Categories = xWs.Cells(I, 4)
.Save
End With
I = I + 1
Loop
Set xAppointmentItem = Nothing
Set olApp = Nothing
xExcelApp.Quit
Set xExcelApp = Nothing
MsgBox "Import successfully!", vbInformation, "Kutools for Outlook"
Exit Sub
Err_Execute:
MsgBox "An error occurred - Exporting items to Calendar.", vbInformation, "Kutools for Outlook"
End Sub
Function FolderExist(CalFolder As Folder, FolderName As String) As Boolean
Dim I As Integer
Dim xSubFolder As Folder
For I = 1 To CalFolder.Folders.Count
Set xSubFolder = CalFolder.Folders.Item(I)
If xSubFolder.Name = FolderName Then
FolderExist = True
Exit Function
End If
Next I
End Function
3. Noch im Fenster Microsoft Visual Basic for Applications klicken Sie auf Extras > Verweise, um zum Dialogfeld Verweise-Projekt1 zu gelangen, und aktivieren Sie die Option Microsoft Excel Object Library aus der Liste der verfügbaren Verweise, siehe Screenshot:
4. Klicken Sie dann auf OK, drücken Sie jetzt die F5-Taste, um diesen Code auszuführen, und ein Fenster „Datei auswählen“ wird angezeigt. Wählen Sie bitte die Excel-Datei aus, die Sie in Outlook importieren möchten, siehe Screenshot:
5. Klicken Sie anschließend auf OK, es erscheint ein Popup-Fenster wie folgt:
6. Klicken Sie dann auf OK, die Excel-Daten wurden wie im folgenden Screenshot gezeigt in den Kalender importiert:
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!
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 ...
