Mittels einer Userform und dem folgenden Code schreibe ich Fixe/wiederkehrende Termine in meinen Outlook-Kalender:
Private Sub CommandButton1_Click()
'Schicht
Dim myOLApp As Object
Dim myItem As Object
Dim Datumsvariable
Dim Zeitvariable As String
Zeitvariable = "06:00"
Schichtbezeichnung = "Testschicht, 06:00-15:00"
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
With myItem
.Subject = Schichtbezeichnung
.Location = "noch unbekannt"
Datumsvariable = MonthView1.Value
If Datumsvariable = "" Then GoTo Ende
.Start = Format(Datumsvariable, "dd.mm.yyyy") & " " & Format(Zeitvariable, "hh:mm")
'.Start = Format(Range("A1").Value, "dd.mm.yyyy") & " " & Format(Range("B1").Value, "hh:mm") _
.Duration = "540"
'.ReminderMinutesBeforeStart = 10
'.ReminderPlaySound = True
.ReminderSet = False
.Save
End With
MsgBox "Schicht wurde in Outlook eingetragen !"
Schichten.ListBox1.AddItem (Datumsvariable) & " " & "-->" & " " & Schichtbezeichnung
Set myOLApp = Nothing
Set myItem = Nothing
Ende:
End Sub
gleichzeitig wird in der ListBox1 der soeben ins Outlook geschriebene Termin aufgeführt.etc...
Nun möchte ich folgendes tun / in meinem Code erweitern:
Und zwar ... ich möchte in der Listbox auf einen Eintrag klicken können (also ein Termin, der soeben in meinem Kalender eingetragen wurde) und möchte diesen Termin per Klick auf einen Button in meinem Outlook-Kalender wieder rauslöschen.
Geht das irgendwie ?
Ich meine ... kann ich irgendwie bewerkstelligen, dass ich ab einer Listbox einen Eintrag selektieren- und in Outlook löschen kann ?
Hat jemand ein Beispiel ?
Im voraus tausend Dank !!!