OL-Kalender-Standard-Ansicht “Aktiv” - bei BEGINN /ENDE bei einem Terminserie-Ereignis wird...

Was mich wahnsinnig macht, lässt mich nicht mehr los. An meinem Zweitrechner hab ich nun das gleiche OL eingerichtet W7 (auf anderen PC Exportiert) und dann alle Einstellungen auf "Standard" resettet. Hurraaa - das Ergebnis: Es geht wieder alles zu kopieren
und verschieben und das Datum bei neuen Terminen stimmt auch wieder... Lösung nach Suchen der Unterscheidungen bei beiden Installationen:



Es lag an der Ansicht (Kalender>Aktuelle Ansicht>Aktuelle Ansicht anpassen>Felder)

hier stand: Beginn=Serienbeginn und Ende=Serienende!!! Fatal, dass diese Einstellungen einem anschließend das Kopieren/Verschieben verbietet!

LÖSUNG: Beginn=Beginn und Ende=Ende.



So einfach kann Office sein ))

Hallo Robert,

ich kann dem Oliver Vukovics nur beipflichten…

"Wenn Du nun eine Listenansicht erzeugst, müsstest Du, der Logik nach, gefragt werden, ob Du in der Listenansicht "alle Serientermine" oder "nur den aktuellen" angezeigt haben willst."

Eine Möglichkeit wäre evtl. per Formel. In meiner angepassten Tabellenansicht habe ich eine Spalte, die mir anzeigt, wie viele Tage bis zum aktiven Termin verbleiben…

DateValue([Beginn])-DateValue(now())

Das Problem ist aber, dass man in OL 2003 nicht nach selbst definierten Feldern sortieren kann.

Wäre es mit einem Makro möglich? Beim Aufrufen der Listenansicht würde der Code die Anfangsdaten in allen Serienterminen auf die jew. aktuellen ändert.

Ich benutze folgendes einfaches VBA-Makro, um per Knopfdruck die Listenansicht meiner aktiven Termine aufzurufen…



Sub ViewNextActions()

Dim myOlExp As Outlook.Explorer

Set myOlExp = Application.ActiveExplorer

If myOlExp.CurrentFolder = "Kalender" Then

myOlExp.CurrentView = "Aktive Termine"

End If

End Sub

Man müsste nur einen passenden Code einarbeiten, aber ich fürchte, meine VBA-Kenntnisse reichen nicht. Könntest Du oder ein Kollege so was bewerkstelligen?

Beste Grüsse

Weil du Filterst oder die Ansichten verändert hast?

starte OL mal mit dem Parameter /Cleanviews

George

Wenn du die Daten wieder importiert hast, hast du den Fehler vermutlich wieder importiert. Kann das sein?

--> *schäm* OL hat natürlich ein neues PST erstellt, aber ich hab wieder mein PST hinzugefügt und als Standard gesetzt. d.h. der Wurm sitzt im PST?

Mit einem neuen PST schreibt OL mir jetzt "Ihre Standard Email Ordner können nicht geöffnet werden. Der Informationsspeicher steht derzeit nicht zur Verfügung"

Ich hab mit einem neuen UserKonto ein OL-Profil aufgesetzt. Mit dem ging´s zumindest mit drei Einträgen im Kalender. Der im Phone angelegte Telefonkontakt erschien allerdings nicht in OL.



LG, Franz

Für Word:

Auch hier muss die Position der Daten genauer spezifiziert sein, die Angabe "Titelblatt" ist völlig unzureichend, damit kann VBA nichts anfangen. Aus der Angabe 1.4. könnte VBA versuchen schlau zu werden, dessen eigenwillige Interpretation kann jedoch mitunter
zu seltsamen Ergebnissen führen. Besser ist auch hier eine klare Ansage, dass ein Datum immer aus 8 Ziffern und 2 Punkten besteht. Das Weglassen der Jahreszahl führt zu keinem Fehler, solange kein Jahreswechsel zu berücksichtigen ist, ansonsten würde z. B.
die Berechnung des Zeitraums vom 28.12. - 2.1.2016 statt der erwarteten 5 Tage -360 Tage ergeben und Word müsste mitteilen, dass der Seitenvorrat im Dokument leider nicht ausreicht um so viele zu entfernen. Da wie gesagt die Position der Daten nicht angegeben
ist, gehe ich mal frank und frei davon aus, dass es sich inklusive Bindestrich und Leerzeichen um die ersten 23 Stellen des ersten Absatzes handelt:

Sub machSeiten()

Dim beginn As Date, ende As Date, anzahl As Integer

If IsDate(ActiveDocument.Range(Start:=0, End:=10).Text) _

And IsDate(ActiveDocument.Range(Start:=13, End:=23).Text) Then

beginn = ActiveDocument.Range(Start:=0, End:=10).Text 'dahinter: Leerstelle - Leerstelle

ende = ActiveDocument.Range(Start:=13, End:=23).Text 'alle 4 Zeilen an Standort anpassen!

anzahl = DateDiff("d", beginn, ende)

'MsgBox anzahl 'für Testzwecke

If anzahl < 0 Then MsgBox "Enddatum vor Startdatum! Vorgang wird abgebrochen.", _

vbCritical, "Datumsangaben fehlerhaft!": Exit Sub

Selection.EndKey Unit:=wdStory

Selection.InsertNewPage

Selection.TypeText Text:=beginn

Selection.InsertParagraph

beginn = beginn + 1

For c = 1 To anzahl

Selection.InsertBreak

Selection.TypeText Text:=beginn

Selection.InsertParagraph

beginn = beginn + 1

Next c

Else

MsgBox "Keine gültigen Datumsangaben erkannt! Vorgang wird abgebrochen.", _

vbCritical, "Fehler!": Exit Sub

End If

End Sub

Betreffs Automatisierung: Das Open bzw. New-Ereignis ist hier nicht anwendbar, da die Daten ja erst noch geschrieben werden müssen. Nehmen könnte man statt dessen das WindowsSelectionChange-Ereignis, das wäre jedoch wie mit Kanonen auf Spatzen geschossen
und auch sehr aufwändig zu programmieren, da sichergestellt werden muss, dass der Vorgang nur einmal pro geöffnetes Dokument ausgeführt wird, obwohl das Ereignis nach jeder Eingabe erneut eintritt. Mach also besser eine Schaltfläche oder führe das Makro über
Ansicht/Makros aus, das sollte genügen.

MfG