Office: (Office 2016) Excel Daten als Kalendereintrag in Outlook

Hallo Horst,

probiere mal die u.a. Version, ob sie in Deinem Sinne ist...

Die Aussage "JEtzt überschreibt er mir auch die Formel in B16" verstehe ich nicht. Wenn ich was in B16 schreibe, überschreibt er natürlich eine ggf. dort vorhandene Formel


Private Sub Worksheet_Change(ByVal Target As Range)

With Target
Application.EnableEvents = False
If Val(Range("V5").Value) > 0 Then
Range("B16").Value = Range("V5").Value
Else
If .Address = "$B$14" Then
Select Case Trim$(LCase(.Value))
Case "ganztägig": Range("B16").Value = 1
Case "vormittag", "nachmittag": Range("B16").Value = 0.5
Case ""
MsgBox "Gib bitte einen Urlaubszeitraum ein. Ganztägig, Vormittag oder Nachmittag.", vbExclamation, "Eintrag"
Case Else
End Select
End If
End If
Application.EnableEvents = True
End With

End Sub
viele Grüße aus Freigericht
Karl-Heinz

 

Hi,
danke für deine Antwort... leider greift dein code bei der auswahl des Urlaubszeitraums nicht. Wenn ich ganztägig auswähle schreibt er keinen Urlaubstag rein bzw. Wenn ich Vormittag oder Nachmittag wähle bleibt er auch bei 0 stehen.

Wenn ich mein Formular fülle, rechnet er in V5 die Tage aus (DateDiff) und in B16 steht =V5 Somit nimmt er sich die Tage und wenn ich z.b Vormittag auswähle schreibt er 0,5 rein und überschreibt =V5 aber ich habe jetzt hinter den Button Felder leeren folgenden Code geschrieben:

Code:

Somit wird die Formel eingetragen und es passt, Wenn ich gleich Datedif reinschreiben würde, könnte ich mir die zelle V5 sparen aber das habe ich noch nicht geschaft.

 

\@volti ich danke dir für deine Super Unterstützung bei meinem Problem.

Es läuft jetzt alles nur der Eintrag in einen Gruppenkalender konnte ich noch nicht realisieren. Vielleicht hat noch jemand eine Idee.