SharePoint QuickSteps - Fehler bei setzen eines Datums

Hallo djbadehose2000,



In Outlook 2016 kann ganz leicht eine E-Mail als Termin eingerichtet werden. Einfach die E-Mail auf den Kalender (unten links) ziehen, Datum und Uhrzeit einstellen speichern.



Eine andere Möglichkeit wäre über QuickSteps einen Termin mit der Mail als Anlage erstellen.



Rechter Mausklick auf der E-Mail / QuickSteps / Neu erstellen / als Aktion "Termin mit Anlage erstellen" / Tastenkombination nach Wunsch / Fertigstellen.



Dann rechter Mausklick auf der E-Mail / QuickSteps / Termin mit Anlage erstellen / Datum und Uhrzeit einstellen speichern.



In beide Fälle werden die E-Mails als Termine in den primären Kalender des Benutzers angezeigt.



Was die Outlook Web App angeht, diese hat weniger Möglichkeiten als die Desktop Anwendung.



Du kannst deine Meinung und Vorschläge über Outlook für alle Plattformen den Entwicklern
hier mitteilen.



Mit freundlichen Grüßen,



Microsoft Office 365 Support Engineer



Bitte markieren Sie diese Antwort als "Lösung", wenn diese Ihnen weiterhelfen konnte, so dass auch andere Teilnehmer von der Lösung profitieren können.

Hallo,

ALT + F11 ist der VBA-Editor. Du musst die Programmierung in das Tabellenblatt "heften".

Wenn Du etwas Zeit hast, ich glaube, dass hier könnte helfen...

http://youtu.be/L2mYkaOD9N4

Beste Grüße

Andreas

Vielen Dank für die Antworten ,Also komme ich nur mit Makro weiter ?

Mit crtl F11 erstelle ich ja eine Makro arbeitsmappe dann Zeile anklicken und ausführen.

Name vergeben und dann weiter erstellen um in den VB editor zu gelangen.

Sub Datum ( Dim Datum As Date

Datum = Now()

Range("A1").Value = Datum

Selection.NumberFormat = "dd/mm/yyyyy" )

if Range ("A1") = LÄNGE(A1)>000; Then Range ("B1") = Date

End Sub

Dann speichern ?

und alt F4 um Vb zu schliessen

Wie wende ich das nun auf mein Excel .

Hallo,



weil das erste Intersect den zweiten Bereich schon ausschließt. Das muss anders formuliert werden:



Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A:A,E:E")) Is _

Nothing Then Exit Sub

Target.Offset(, 1) = IIf(Len(Target) > 0, Date, "")

End Sub



Mit freundlichen Grüßen

Claus

Danke Clais, der zweite code ist genau den den ich brauche funktioniert wunderbar.

Target steht für das Ziel ByValbedeutet was genau??

Danke für die geniale Hilfe^^