Termine von Excel nach Outlook exportieren

Sponsoren und Investoren

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. Beliebig erweiterbar... :-)

Termine in Outlook eintragen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt