Termine nach Outlook übertragen
16.02.2004 15:34:12
Werner
Sub TermineVonExcelNachOutlookÜbernehmen()
'Dim objOutlook As Outlook.Application
'Dim apptOutlook As Outlook.AppointmentItem
Dim objOutlook As Object
Dim apptOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
Range("U2").Select
Do Until ActiveCell.Value = ""
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start = ActiveCell.Value
.Body = ActiveCell.Offset(0, -18).Value
.Subject = ActiveCell.Offset(0, -16).Value
.Duration = 90
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Termine an Outlook übertragen!"
Set apptOutlook = Nothing
Set objOutlook = Nothing
End Sub
Das Makro sollte auf auf WI2000 mit Excel 2002 und XP mit Office 2003 laufen.
Kann mir bitte jemand sagen, wo mein Fehler liegt?
Besten Dank für Eure Mühe!!!!