Hallo ugor,

vielen Dank für deine Antwort.

Das script lautet wie folgt:

Sub auswahlNachOutlook()

'
' Beispiel-Funktion - Markieren - und autoamtisch eintragen in Outlook
' 2016, www.stallwanger.net
'
   Dim StartDatum As String
   Dim Dauer As Long
   Dim Beschreibung As String
   Dim Nachricht As String
   Dim Ort As String
    
   With Excel.Selection
    StartDatum = .Cells(Start).Value
    Dauer = .Cells(Duration).Value
    Beschreibung = .Cells(Label).Value
    Nachricht = .Cells(msg).Value
    Ort = .Cells(place).Value
  End With
   
  'Nach Outlook
   
   lvOutlook StartDatum, Dauer, Beschreibung, Nachricht, Ort
End Sub
 
Public Function lvOutlook(outDate As String, outDauer As Long, outSubject As String, outBody As String, outlocation As String) As Boolean
'Hier beginnen die Termine
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit - als Start-Uhrzeit 8:00 -
.Start = Format(outDate, "dd.mm.yyyy") & " 08:00" ' Es kann auch eine andere Uhrzeit festgelegt werden.
'Termininfo
.Subject = outSubject
'oder der Betreff steht in der Spalte rechts von den Terminen
.Location = outlocation '         'Ort
.Duration = outDauer   ' 1 Std. = "60" Dauer in Minuten
'Erinnerung setzen in Outlook (hier inaktiv)
'
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
lvOutlook = True
MsgBox "Termin an Outlook übertragen."
Exit Function
ErrOutLook:
Set apptOutApp = Nothing
Set OutApp = Nothing
lvOutlook = False
MsgBox "Termin konnte in Outlook nicht eingetragen werden.  Fehler:" & Err.Description
End Function

Ich markiere quasi die datenzellen und übergebe anschliessend mittels Button an Outlook.

Hier der screenshoot vom Frontend:

https://abload.de/img/2018-12-0116.40.03p0ij7.jpg

Danke & Gruss,

Hans