Outlooktermine eines Tages in einer Zelle

Hallo Forum,
durch Euch konnte ich meine Excel Skills schon deutlich erweitern.
Vielen Dank dafür!
Leider kann ich überhaupt kein VBA, daher benötige ich Eure Hilfe.
Ich habe schon einen etwas älteren Beitrag gefunden der Grundsätzlich das beinhaltet, was ich benötige.
Die 11516.xls liest die Termine aus, die eine Anfangs und Endzeit beinhalten.
(Keine Ereignisse und Serientermine)
Die Termine und die dazugehörigen Zeiten werden untereinander aufgelistet.
Was ich jedoch benötige ist folgendes:
In A6:A20 stehen der 1.-15. und von A27-A42 die restlichen Tage des Monats (je nach länge)
Zu diesen Tagen soll nun die Termine aus dem Outlook Kalender ausgelesen,
und der Ort in B6:B20 usw. eingetragen werden.
Wenn es mehrere Termine an einem Tag gibt, sollen die Orte mit einem Komma getrennt in die jeweilige Zelle eingetragen werden.
In F6:F20 usw. soll der niedrigste Beginn der Termine stehen und in G6:G20 usw. das höchste Ende der Termine stehen.
Könnte mir jemand wohl helfen, und die 11516.xls dahingehend zu ändern?
Ich würde mich riesig darüber freuen!
Viele Grüße
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
bei mir klappt das so:


Sub OutlookTerminEinlesen()
Dim outl As Object, Datum As Date
Dim ns As Object, terminOrdner As Object, termine As Object, termin As Object
Dim rg As Range
Dim sFilter As String
Const formatDate As String = "ddddd HH:mm am/pm"
Set outl = CreateObject("Outlook.Application")
Set ns = outl.GetNamespace("MAPI")
Set terminOrdner = ns.GetDefaultFolder(9) 'olFolderCalendar
'Filtere Termine dieses Tages
Datum = Range("B1")
sFilter = "[Start] >= '" & Format(Datum, formatDate) & "' And [Start]  "" Then Range(rg, rg.End(xlDown)).EntireRow.Delete
For Each termin In termine
If termin.GetRecurrencePattern.RecurrenceType = 1 Then
'keine Serientermine
'siehe: https://msdn.microsoft.com/de-de/library/office/ff868812(v=office.15).aspx
'olRecursDaily = 1 : olRecursWeekly = 2
'olRecursMonthly = 3 : olRecursMonthNth = 4
'olRecursYearly = 5 : olRecursYearNt = 6
With rg
.Value = termin.Subject
.Offset(0, 1).Value = termin.Start
.Offset(0, 2) = termin.End
End With
Set rg = rg.Offset(1, 0)
End If
Next termin
Set termin = Nothing:       Set termine = Nothing
Set terminOrdner = Nothing: Set outl = Nothing
Set ns = Nothing:           Set rg = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Outlooktermine eines Tages in einer Zelle

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlooktermine eines Tages in einer Zelle

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread