habe hier im Forum diesen Code gefunden (Kalender auslesen). Ich möchte gerne noch die Uhrzeiten von den Terminen von-bis mit auslesen. Wie muss man die Uhrzeiten definieren das diese noch mit drin sind? Schon mal recht herzlichen Dank für Eure Hilfe
Gruß, Guesa
Option Explicit
Sub Kalender_export()
'Variablen Definieren
Dim Outl_App As Object
Dim Namens_R As Object
Dim akt_Ordner As Object
Dim Kalendereintrag As Object
Dim Element_kal As Object
Dim StartDatum As Date
Dim EndeDatum As Date
Dim i As Long
Const olFolderCalendar As Long = 9
Set Outl_App = CreateObject("Outlook.Application")
Set Namens_R = Outl_App.GetNamespace("MAPI")
Set akt_Ordner = Namens_R.PickFolder 'beliebigen Kalender auswählen
Set Element_kal = akt_Ordner.Items
Tabelle1.Name = "Outlook_Statusbericht"
StartDatum = DateSerial(2017, 1, 1)
EndeDatum = DateSerial(2017, 12, 31)
EndeDatum = EndeDatum + 1
Application.ScreenUpdating = False
'Überschriften vorbereiten
Cells(1, 1) = "Ereignis"
Cells(1, 2) = "Beginn am"
Cells(1, 3) = "Besprechungsressourcen"
Cells(1, 4) = "Beschreibung"
Cells(1, 5) = "Kategorien"
Cells(1, 6) = "Ort"
Cells(1, 7) = "Serientermin"
'Sicherstellen, dass bei Serien die einzelnen Einträge übernommen werden
Element_kal.Sort "Start"
Element_kal.IncludeRecurrences = True
Set Kalendereintrag = Element_kal.Find("[Start]>""" & StartDatum & """ AND [End]