ich habe hier im Forum folgendes Makro gefunden, das soweit super funktioniert:
Sub TermineVonExcelNachOutlookÜbernehmen()
Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Range("A2").Select
Do Until ActiveCell.Value = ""
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Subject = ActiveCell.Value
.Body = ActiveCell.Offset(0, 1).Value
.Location = ActiveCell.Offset(0, 2).Value
.Start = ActiveCell.Offset(0, 3).Value
.Duration = ActiveCell.Offset(0, 4).Value
.RequiredAttendees = ActiveCell.Offset(0, 5).Value
.ReminderMinutesBeforeStart = ActiveCell.Offset(0, 6).Value
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Termine an Outlook übertragen!"
Set apptOutlook = Nothing
Set objOutlook = Nothing
End Sub
Nur möchte ich nun die Einträge nicht in den Standardkalender sondern in einen anderen ("Planungskalender") einfügen. Leider ist mir nicht klar, wo ich dem Programm mitteile, dass es NICHT den Standardkalender sondern den von mir gewünschten befüllt.Würde mich freuen, wenn mir jemand eine kurze Hilfestellung geben könnte. DANKE!
Schöne Grüße
Bernd