|
Termine von Excel nach Outlook exportieren
Mit folgenden Makro kann man Termine von Excel nach Outlook exportieren:
Sub Termine_von_Excel_nach_Outlook_exportieren()
Dim OutApp As Object, apptOutApp As Object
'Termine aus Excel-Sheet lesen
Range("A2").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
'Termine werden aus den Zellen gelesen
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " " & Format(ActiveCell.Offset(0, 1).Value, "hh:mm")
.Subject = ActiveCell.Offset(0, 2).Value
'Zusätzlicher Text
.Body = ""
'Ort
.Location = ActiveCell.Offset(0, 3).Value
'Dauer des Ereignisses (hier 2 Stunden)
.Duration = "120"
'Erinnerung: 60 min vor Ereignis
.ReminderMinutesBeforeStart = 60
'Erinnerungsfunktion mit Sound
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
'Nächste Zeile auswählen
ActiveCell.Offset(1, 0).Select
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine wurden in Outlook eingetragen!"
End Sub
Im Excelsheet werden, wie im Beispiel unten, die Termine eingetragen. Auf dem Sheet wird ein Button platziert,
der das Makro auslöst.
|