Hallo,
ich habe für eine Excel Tabelle ein Makro, das dafür sorgt, dass Termine aus dieser Tabelle in Outlook generiert werden. Dies funktioniert super.
ABER: Wenn ich in der Tabelle neue Daten eingebe und das Makro wieder drüber laufen lasse, dann werden auch die alten Einträge erneut in Outlook übernommen, so dass ich ständig Doppelungen habe. Wer kann mir helfen, dass eine Kontrolle stattfindet, ob der Termin schon eingetragen ist?
Hier das Makro:
Vielen Dank für Eure Hilfe!!!
Carsten
ich habe für eine Excel Tabelle ein Makro, das dafür sorgt, dass Termine aus dieser Tabelle in Outlook generiert werden. Dies funktioniert super.
ABER: Wenn ich in der Tabelle neue Daten eingebe und das Makro wieder drüber laufen lasse, dann werden auch die alten Einträge erneut in Outlook übernommen, so dass ich ständig Doppelungen habe. Wer kann mir helfen, dass eine Kontrolle stattfindet, ob der Termin schon eingetragen ist?
Hier das Makro:
Quellcode
- Sub Excel_Control_Termin_nach_Outlook()
- Dim OutApp As Object, apptOutApp As Object
- Range("K2").Select
- Do Until ActiveCell.Value = ""
- Set OutApp = CreateObject("Outlook.Application")
- Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
- With apptOutApp
- .Start = Format(ActiveCell.Value, "dd.mm.yyyy hh:mm")
- .Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
- .Subject = ActiveCell.Offset(0, 1)
- .Body = ""
- .Location = "Büro"
- .Duration = "60"
- .ReminderMinutesBeforeStart = 15
- .ReminderPlaySound = True
- .ReminderSet = True
- .Save
- End With
- 'Nächste Zelle auswählen
- ActiveCell.Offset(1, 0).Select
- 'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
- Set apptOutApp = Nothing
- Set OutApp = Nothing
- Loop
- MsgBox "Super - Termine an Outlook übertragen!"
- End Sub
Vielen Dank für Eure Hilfe!!!
Carsten