Moin :)

Ich bin gerade dabei ein bisschen mit VBA "rum zu spielen" um mir die Geräteverwaltung auf der Arbeit zu erleichtern.

Dazu habe ich ein forumlar in dem bei Bedarf ein Termin im Outlook Kalender gesetzt wird, funktioniert soweit auch sehr gut.

Hier ist der zugehörige Code (Schnippselbastelei nach google Suche, bin kein VBA Profi)

Private Sub KalenderEintrag()
    Dim objOUTL As Object, apptOUTL As Object
    Set objOUTL = CreateObject("Outlook.Application")
    Set apptOUTL = objOUTL.CreateItem(1)
    With apptOUTL
    .Start = txtErinDatum
    .Subject = "ergoHW Kontrolle - " & txtMitarbeiter & " - " & comBezeichnung
    .AllDayEvent = True
    .Categories = "Zu erledigen"
    .Body = "Bitte beim Anwender nach weiterem Verbleib der Hardware fragen"
    .ReminderSet = False
    .Save
    End With
    Set apptOUTL = Nothing
    Set objOUTL = Nothing
End Sub

Jetzt möchte ich aber, dass der Kalendereintrag nicht in meinem, sondern Beispielsweise in Kalender "xyz" (Volle Lese/Schreibrechte von mir sind vorhanden) eingetragen wird.

Desweiteren brauche ich ein Script dass beim Öffnen des Formulares guckt ob bereits ein Kalendereintrag existiert.

Hoffe mir kann jemand helfen, danke im voraus :)