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:
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
|