Hallo Leute,

ich bin absoluter Neuling in Sachen VBA und nähere mich der Sache, indem ich mir für meine Fewo eine Verwaltungsexcel programmiere. Ich will die eingetragenen Gäste auf Knopfdruck als Outlook Termine im Kalender speichern. Mit dem nachfolgendem Code habe ich aber das Problem, dass in der for Schleife der Termin immer aktualisiert und der vorherige somit gelöscht wird. Wenn die for Schleife durchgelaufen ist, habe ich also nur den aller letzten Gast im Kalender. Wie kann ich dieses Problemm umgehen? Ich freue mich über ein paar Tips.

Liebe Grüße
Tino

Sub Outlook_Termine()

Dim ns              As Outlook.Namespace
Dim myfolder        As Outlook.Folder
Dim mysubfolder     As Outlook.Folder

Set ns = GetObject("", "Outlook.Application").GetNamespace("MAPI")
Set myfolder = ns.GetDefaultFolder(9).Folders("Fewo-Belegung")


Worksheets("Laufendes Jahr").Activate
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Z = Range("Abgeschlossen").Rows.Count + 2
y = Range("Bevorstehend").Rows.Count
LetzteZeileBevorstehend = LetzteZeile - Z - 2



Dim oTermin As Outlook.AppointmentItem
Set oTermin = myfolder.Items.Add(olAppointmentItem)



For i = 14 To LetzteZeileBevorstehend
With oTermin
    .Display
    .Subject = Range("B" & i).Value
    .Start = Range("F" & i).Value
    .End = Range("G" & i).Value
    .AllDayEvent = True
    .ReminderSet = False
    .Save
    
End With
Next
Set oTermin = Nothing
End Sub