Hallo VBA Gemeinde,

Ich arbeite derzeit an einem template bei welchen Termine von Excel automatisch in Outlook übertragen werden sollten.

Ich habe nun durch einen Code aus dem Internet (siehe unten) dies geschafft, jedoch habe ich 2 Probleme.

1.) Würde ich gerne Doppeleinträge vermeiden (ich muss mit einer Funktion "Datum und Subject" abfragen und wenn dieses gleich ist, soll er den Termin nicht eintragen.

2.) Sollen die Termine nicht in den Standardoutlook Kalender geschrieben werden, sondern in einen anderen Kalender der in Outlook hinterlegt wurde. Wie spreche ich diesen an?

Hier mein Code für das normale Schreiben der Termine in den Outlookkalender:

Sub import()

Dim OutApp As Object 'Dim OutApp As Outlook.Application
Dim apptOutApp As Object
Dim objFolder As Object
Dim objNS As Object

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 = ""
    'Categories
    .Categories = ActiveCell.Offset(0, 4).Value
    'Dauer des Ereignisses (hier 2 Stunden)
    .Duration = "120"
    'Erinnerung: 60 min vor Ereignis
    .ReminderMinutesBeforeStart = 20160
    '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