MS-Office-Forum

Zurück   MS-Office-Forum > Sonstiges > Pro und Contra MS-Office-Forum
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 13.04.2019, 12:55   #1
rk17
Neuer Benutzer
Neuer Benutzer
Standard Frage - unterschiedliche Zugriffszeiten bei gleichem Appointment

Hallo zusammen,

ich versuche aus einem Gruppenkalender über einen langen Zeitraum die Appointments in einem Array zu sammeln, um danach Auswertungen vorzunehmen. Dabei fiel mir auf, das trotz gleichem Item und "benachbarter Variablen" die Zugriffszeiten permanent sehr unterschiedlich sind (immer gleiche Anzahl definierter Items). Ich kann es mir nicht erklären und suche nach eine Lösung die Laufzeiten zu reduzieren.
Nachfolgend die wesentlichen Statements. Wäre toll, wenn ihr einen Hinweis für mich habt. (am aufnehmenden Array kann nicht liegen, denke ich)
Ich habe die Übernahme ins Array jeder einzelnen Variablen mehrfach getestet
und alle anderen (Übernahme)-Anweisungen auskommentiert. Dabei sind dann die im Kommentar genannten Zeiten nach ca. 1400 durchlaufenen Items gemessen worden.

Set Items = myOlFolder.Items.Restrict("[Start] >= '" & mystart & "' and [end] <= & '" & myend + 1 & "'")
Items.IncludeRecurrences = False
Items.Sort "Start", True
Dim arr2d As Variant

ReDim arr2d(1 To Items.Count, 1 To 20) As Variant
For i = Items.Count To 1 Step -1
Set Appt = Items(i)

arr2d(x, 1) = Appt.Start 'Date, 1,56 Sek.
arr2d(x, 2) = Appt.End 'Date, 1,50 Sek.
arr2d(x, 3) = Appt.AllDayEvent 'Boolean, 1,56 Sek.
arr2d(x, 4) = Appt.BusyStatus 'Long, 1,52 Sek.
arr2d(x, 5) = Appt.Categories 'String, 71,20 Sek.
arr2d(x, 6) = Appt.CreationTime 'Date, 71,64 Sek.
arr2d(x, 7) = Appt.Duration 'Long, 1,53 Sek.
arr2d(x, 8) = Appt.LastModificationTime 'Date, 69,91 Sek.
arr2d(x, 9) = Appt.Location 'String, 1,52 Sek.
arr2d(x, 10) = Appt.MeetingStatus 'Long, 1,48 Sek.
arr2d(x, 11) = Appt.RecurrenceState 'Long, 71,06 Sek.
arr2d(x, 12) = Appt.ReminderMinutesBeforeStart 'Long, 71,98 Sek.
arr2d(x, 13) = Appt.Subject 'String 1,81 Sek.
Next i
......
end sub

Danke für jeden Hinweis
Rainer
rk17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2019, 13:53   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Halo Rainer,

hier geht es um das Forum. Ich glaube Deine Frage hat damit nichts zu tun?
Vielleicht solltest Du das richtige Forum benutzen?

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Fragen werden im Forum beantwortet, nicht per PN.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2019, 14:28   #3
rk17
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke,

Thema habe ich nun bei Outlook untergebracht
Rainer
rk17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:13 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.