Office: Prüfen ob Termin vorhanden

Ich möchte mit Outlook prüfen ob der Termin schon im Kalender vorhanden ist, wenn ja soll kein Termin erstellt werden. Sonst soll kein Termin erstellt werden.
Dies kann man sicher mit ein If abfrage lösen. Ich weiß aber leider nicht wie?
Kannn mir da jemand helfen.
Schon mal Vielen Dank.

Gruß Niklas

:)

 

Hallo Niklas,

das soll von Excel aus gehen, oder willst Du in Outlook direkt arbeiten?

Naja, (fast) egal:

(1) Outlook Object-Library einbinden
(2) Outlook-Object erstellen
(3) alle Kalendereinträge abfragen
(4) Vergleich mit von Dir vorgegebenen Kriterien (Terminbezeichnung, Datum, Uhrzeit etc - wonach Du auch immer schauen willst)

Beispielcode für die Ansprache von Outlook über Excel findest Du auch massig hier im Forum...

Grüße
EarlFred

 

Es soll von Excel aus gehen. Ich möchte alle Kalendereinträge prüfen.
Es darf keine Bibliothek eingebunden werden, da es in allen Outlook Versionen funktionieren soll. Daher muss Late Binding benutzt werden.

Gruß Niklas

 

Hallo Niklas,

es ist noch die Frage offen, anhand welches Kriteriums du die Termineinträge prüfen willst. Ich habe mal den Betreff genommen. Es wird also geprüft, ob bereits ein Termin mit dem gewünschten Betreff vorhanden ist. Wenn ein entsprechender Termin gefunden wird, wird dessen Dauer in Minuten in einer Messagebox ausgegeben.

Code:

 

Danke es klappt.

 

Moin,

ich habe denn Code übernommen und Mein Suckkreterium angepasst und Termin auf Delete gesetzt der Termin wird leider trozdem angellegt.
Woran kann dies liegen.

Der Code:

Private Sub cmdAuswärtsspiele_Click()

Const olFolderCalendar As Integer = 9

Dim olApp As Object
Dim objNS As Object
Dim objFolder As Object
Dim objAlleTermine As Object
Dim objTermin As Object

Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNameSpace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderCalendar)
Set objAlleTermine = objFolder.Items

For Each objTermin In objAlleTermine
If termin.Subject = "'TSV GWD Minden : SG Flensburg-Handewitt" Then
termin.Delete

End If
Next

 

Hallo Niklas!

Code:

In den beiden Codezeilen verwendest du die Variable "termin". Diese muss aber objTermin heißen.

Ich empfehle dringend die Verwendung von "Option Explicit". Gehe dazu im VBA-Editor über Menü Extras | Optionen | Register "Editor" und aktiviere die Option "Variablendeklaration erforderlich". In jedem neuen Codemodul erscheint daraufhin ganz oben die Anweisung "Option Explicit". Diese Anweisung solltest du auch in die bereits vorhandenen Module eintragen. Sie bewirkt, dass Variablen deklariert werden müssen, sonst gibt es einen Kompilierungsfehler - das Makro wird nicht ausgeführt. Dadurch erkennt man Tippfehler bei Variablennamen sofort. Ohne "Option Explicit" werden solche Tippfehler oft gar nicht erkannt und führen dann zu einem Fehlverhalten des Makros, dessen Ursache man manchmal erst nach tagelanger Suche findet, wenn überhaupt.

Gruß Ingolf

 

Moin,

Termin wird immer noch neu angelegt.

Const olFolderCalendar As Integer = 9

Dim olApp As Object
Dim objNS As Object
Dim objFolder As Object
Dim objAlleTermine As Object
Dim objTermin As Object

Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNameSpace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderCalendar)
Set objAlleTermine = objFolder.Items

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

End If
Next

ich habe es wie vorgeschlagen geändert.

Gruß Niklas

 

Hallo Niklas,

wieso "neu angelegt"? In dem Makro wird doch nichts angelegt, sondern höchstens eben nicht gelöscht. Wenn der Termin nicht gelöscht wird, liegt das wahrscheinlich daran, dass er nicht erkannt wird. Das kann verschiedene Ursachen haben. Der einfachste wäre ein Schreibfehler im Betreff. Der Text muss natürlich komplett übereinstimmen, damit der Termin erkannt wird. Oder verwechselst du vielleicht Betreff und Text des Termins? Lass dir doch mal mit folgendem Makro die Betreffs aller gefundenen Termine im Direktfenster anzeigen. Vielleicht kommst du so auf den Fehler:

Code:

 

Moin,

es handelt sich wirklich um das Subject mit dem Inhalt wonach gesucht wird.
Ingolf die Makro von gestern soll ich von Outlook starten? Klappt weder von Excel noch von outlook.

Hier nochmal der gesamte Code.

Code:

Was sollte ich ändern?

Gruß Niklas

 

Hallo Niklas,

das Makro musst du von Excel aus starten. Das Ergebnis wird im Direktfenster des VBA-Editors ausgegeben. Geh mit Alt+F11 in den VBA-Editor. Dort musst du das Direktfenster eventuell mit Strg+G einblenden. Wenn das Makro gelaufen ist, werden im Direktfenster die Betreffs aller gefundenen Termine angezeigt. Dort müsste dann auch der Betreff "HSG Wetzlar : SG Flensburg-Handewitt" stehen. Prüf dann mal genau die Schreibweise.

Gruß Ingolf

 

Hallo Ingolf,

Deine Makro öffnet Outlook und schließt es sofort wieder und so bekomme ich keine weiteren Information.

Gruß Niklas

 

Hallo Niklas,

die Ergebnisse stehen natürlich im Direktfenster des VBA-Editors von Excel!

Gruß Ingolf

 

Moin,

das löschen von Terminen Klappt. Vielen Dank Ingolf.
Ich möchte aber auch das geprüft ob der termin schon vorhanden ist. Wenn der Termin vorhanden ist soll er keinen neuen Termin anlegen.

Gruß Nikals

 

Hallo Niklas,

ich hab dir das mal eingebaut und den gesamten Code auch mal aufgeräumt. Alle Konstanten- und Variablendeklarationen habe ich an den Anfang gestellt und die Outlook-Objekte nur einmal am Anfang des Makros initiiert und am Ende den Speicher wieder freigegeben:

Code: