Hallo Gast,

Stark vereinfacht waäre das so:

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
	If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
            If Inspector.CurrentItem.BillingInformation <> "" Then
                If Inspector.CurrentItem.BillingInformation Like "*|*" Then 
                        If Application.ActiveExplorer.CurrentFolder.Store = Inspector.CurrentItem.Organizer Then
                            Antwort = MsgBox("Möchten sie den Termin bearbeiten?", vbYesNo)
                            If Antwort = vbYes Then
                                Edit_Termin   'Mokro zur Bearbeitung des termins
                            End If
						End If
				End If
			End If
	End If
end sub

Danach öffnet sich das Kalenderelement wie üblich und ich muss das Fenster wieder schließen.

Das möchte ich aber vermeiden.