Office: Prüfen ob Termin vorhanden

Hallo Ingolf,

danke für deine Mühe. Nun geht er zwar die Excel Tabelle duch macht aber leider keine Einträge auch wenn keine Termine eingetragen sind.
Ich weiß nicht wora es liegen kan.

For Each objTermin In objAlleTermine
If objTermin.Subject = "HSG Wetzlar : SG Flensburg-Handewitt" Then
objTermin.Delete
End If
Next

Diesen Code Teil brauche ich nicht mehr. Da ich die Termine nun mit einem extra Bouton lösche.

Kannst du mir nochmal weiterhelfen?

Gruß Niklas

 

Hallo Niklas,

sorry, mein Fehler! Er fragt gerade falsch herum ab. Ersetze die Zeile
Code:

durch
Code:

Gruß Ingolf

 

Moin,

Danke Ingolf,

er macht nun die Kalendereinträge, aber leider funktioniert die Prüfung nicht.
D.h. er macht auch den Kalendereintrag, wenn der Termin schon vorhanden ist.
Woran kann dies liegen?

Gruß Niklas

 

Moin,

ich habe eine Lösung gefunden. Ich lösche erst die Termine bevor ich sie einfügen. Dies sort dafür, dass nie mehr als einmal der termin eingetragen ist.
Also Ingolf, du brauchst die keine gedanken mehr über eine Optimierung deiner Löung machen. Vielen Dank für all deine hilfreichen Antworten.

Gruß Niklas