Excel Daten nach Outlook Kalender übertragen
27.08.2008 09:34:00
louis29
bin leider ein VBA-Laie.
Googeln und in Fachbüchern recherchieren, hat bisher nicht das gewünschte Ergebnis geliefert.
Da die Zeit sehr knapp ist, benötige ich zeitnah eine passable Lösung.
Problemstellung:
Grundsetzlich mach das Script das was ich brauche, allerdings möchte ich, dass bestehende Temine in Outlook nicht neu angelegt werden, sondern überschrieben bzw. aktualiesiert werden.
Für Ideen und bestenfalls Lösungen bin ich sehr dankbar.
Louis
----------------------------------------------------------
Sub Excel_Control_Termin_nach_Outlook()
'Original-Code von Ramses
'angepasst von Louis29
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("A2").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit
'Hier werden zum aktuellen Tag 7 Tage addiert
'.Start = Format(Now() + 7, "dd.mm.yyyy") & " 08:00"
'Alternativ werden die Termine aus der Zelle genommen
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " " & Format(ActiveCell.Offset(0, 3). _
_
_
Value, "hh:mm") '*****offset für Zeit
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
'Termininfo
'.Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
'oder der Betreff steht in der Spalte rechts von den Terminen
.Subject = ActiveCell.Offset(0, 2).Value
'Zusätzlicher Text
.Body = ActiveCell.Offset(0, 6).Value
'ort
.Location = ActiveCell.Offset(0, 1).Value
'Dauer der Migration
.Duration = ActiveCell.Offset(0, 5).Value
'Termin speichern
.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 "Termine an Outlook übertragen!"
End Sub