Terminliste aus Excel nach Outlook

Liebe Excelianer,
ich habe mir eine Tabelle gebastelt, in der einige für mich relevante Termine aus einem Kalender gezogen werden.
Diese Termine kann ich bereits nach Outlook übertragen.
Mein Ziel:
In Outlook habe ich einen extra Kalender erstellt, in dem diese Termine gespeichert werden sollen. Bis jetzt speichert es die Termine unter einem Standardkalender (?) ab.
Ich stelle mir vor, dass ich zuerst alle Ordner und Unterordner auslesen muss, feststellen, ob mein extra erstellter Kalender existiert und dann diesen Pfad auslesen und zum Schreiben benutzen.
Aber da übersteigt diese Angelegenheit bei weitem meinen Horizont.
Wie finde ich meinen Kalender? Wie komme ich zu den Unterordnern im Standartkalender?
Wie weise ich an, dass jetzt die Termine in diesem Kalender einzutragen sind.
Ich bin mir sicher, dass das eine größere Angelegenheit ist und ich mich wahrscheinlich damit total übernommen habe. Vielleicht hat aber doch jemand von Euch Zeit und Lust, da mal reinzuschauen und mir ein paar Tipps und Anleitungen zu geben.
Die Datei: https://www.herber.de/bbs/user/149820.xlsm
(Der Code in der Datei ist total laienhaft zusammengeschustert aber dafür komplett auskommentiert und inaktiv. ;-) )
Ich würde mich sehr freuen.
Bis dahin
Viele Grüße
Kulo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kulo,
im VB-Editor kannst Du im Objektkatalog (F2 oder "Ansicht", "Objektkatalog") nach "Reminder" suchen und dort sehen, dass ReminderBeforeStart vom Typ Long ist.
Dort findest Du auch Information über getDefaultFolder.
Warum in einem separaten Kalender? Ist dein Leben nicht konmpliziert genug? ;-)
Am besten im demselben Kalender aber dafür mit einer farbliche Kategorie versehen.
Dein Code ist sauber.
Vielleicht einige Kommentar sparen.
Warum Variablen, wenn Du die Zelle direkt nehemn kannst?
Bei einem If ist es leichter zu folgen, wenn die kürzte Teil zuerst vorkommt.
Mein Vorschlag (es ist nur ein Vorschlag):


Sub Outlook_Termin()
Dim oApp As New Outlook.Application
Dim oT As Outlook.AppointmentItem
Dim i As Integer
Dim Rmd As Long
If MsgBox("Daten an Outlook übertragen?", vbYesNo + vbDefaultButton2)  vbYes Then
MsgBox "Es wurden keine Daten übertragen"
Else
Worksheets("Daten").Range("W2") = CDate(Format(Now, "dd.mm.yy hh:mm"))
For i = 2 To 2 'nach Testphase auf die letzte befüllte Zeile erhöhen -> Worksheets("Daten").Cells(2, 26).value
With Worksheets("TerminOutl")
If .Cells(i, 10) = "Ja" Then
Set oT = oApp.CreateItem(olAppointmentItem)
If Worksheets("TerminOutl").Cells(i, 2)  "" Then
oT.Subject = .Cells(i, 1)
oT.Start = .Cells(i, 2) + .Cells(i, 3)
oT.End = .Cells(i, 3) + .Cells(i, 4)
oT.ReminderSet = .Cells(i, 1) = "Ein"
Rmd = DateDiff("n", .Cells(i, 8) + .Cells(i, 9), .Cells(i, 2) + .Cells(i, 3))
oT.ReminderMinutesBeforeStart = IIf(.Cells(i, 9)

VG
Yal

Beliebteste Forumthreads (12 Monate)

Terminliste aus Excel nach Outlook

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread