Ich möchte aber das die Zeilen dynamisch abgefragt werden ob ein neuer Eintrag vorhanden ist, wie kann ich das am besten realisieren?
Button für den Eintrag in Outlook (hier gebe ich die jeweilige Zeile manuell ein, in diesem _
Fall 2):
Private Sub Termin_nach_Outlook_Click()
Excel_Control_Termin_nach_Outlook (2)
End Sub
Modul für den Übertrag an Outlook:
Public Sub Excel_Control_Termin_nach_Outlook(Zeile As Integer)
Dim OutApp As Object, apptOutApp As Object
i = Zeile
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = CDate(Range("H" & i) & " " & Range("I" & i))
.Subject = "Fahrtermin: " & ActiveWorkbook.Sheets("taxi").Range("B" & i) & " steht bevor"
.Duration = "140"
.ReminderMinutesBeforeStart = 20
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
.Save
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
MsgBox "Termin an Outlook übertragen!"
End Sub
Ich hoffe das Ihr mir Helfen könnt, vielen Dank