Excel (2013 Germ.Vers) macro to create appointments in Outlook (2013) with runtime error

Hello,

I’ve searched and found may posts about sending appointment from excel sheet to outlook.
This Macro “Add_To_Outlook” was found here in forum and working almost perfect.
One thing is not working that Macro has runtime error 438 by “If olApptSearch = olAppointment”.
If I take this out and run Macro twice I will have duplicated appointments.
I am new to VBA so I don't understand half of this code as I copied from excel forum.
Explanation to sheet “1 source”:
Column B (from B2) containing date, column C (from C2) containing subject. This appointments are all day events “AllDayEvent = True” (no starting and no ending time).
How to adjust this excel macro to create appointments in outlook calendar “Schulung” from excel sheet without duplicates?

Please Login or Register  to view this content.

Would appreciate any help you can give me on this.

Many thanks in advance
Excelianer

Hi everyone,
I hope someone can help me.... how to adjust in posted code above “If olApptSearch = olAppointment Then Appfound = True” to run it whihout entering duplicate appointmnts o Outlook. My Office version is 2013 German version.

Do you have similar or other suggestion?

Thanks in advance for your helps...

.... *“If olApptSearch = olAppointment Then Appfound = True”...
Did any one try to run this makro?
For any help or advices I am very thankfull