Office: VBA

Hallo liebe VBA-Gemeinde,

ich habe mir für die Arbeit einen kleinen Code ergoogelt und leicht verändert. Es wird eine Tabelle abgefragt und solange Daten in einer gewissen Spalte eingetragen sind diese jeweils in einen Outlookkalender übertragen. Das Problem ist jedoch, das immer wenn ich das Macro ausführe, die Termine übertragen werden und somit Doppelungen enstehen.

Kann ich mit einer Abfrage, ob im Kalender zu diesem Zeitpunkt schon ein Termin ist, dieses Problem vermeiden?

Meine VBA Kenntnisse sind leider in "minimalistische Grundkenntnisse" einzustufen.

Vielen Dank schonmal *Smilie

Jonas


Code:

Sub Excel_Control_Termin_nach_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
Dim hw As Double
Dim ende As Integer
Dim i As Integer
Dim j As Integer

'Hier beginnen die Termine
Range("F1").Select
ende = ActiveCell.Value
For i = 0 To ende
Range("F4").Offset(i, 0).Select

Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp

.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
'Termininfo
.Subject = "Linehaulverträge: " & ActiveWorkbook.Name & " kontrollieren"
'oder der Betreff steht in der Spalte rechts von den Terminen
.Subject = ActiveCell.Offset(0, 1)
'Zusätzlicher Text
.Body = "Bli bla blub text"
'ort
.Location = "Berlin"
.Duration = "5"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
Set apptOutApp = Nothing
Set OutApp = Nothing

Next i
MsgBox "Termine an Outlook übertragen!"
End Sub

:)

 

Hallo Jonas,

jeder (Termin-)Eintrag in Outlook besitzt eine eindeutige Kennung, die EntryID.
Wenn die Excelliste nicht immer neu erstellt wird, sondern z. B. nur Einträge hinzugefügt werden, könntest Du nach SAVE die EntryID auslesen (diese wird erst beim Speichern des Eintrags erzeugt) und in eine separate Spalte in der Liste eintragen. Du könntest beim nächsten Durchlauf also prüfen, ob eine EntryID vorhanden ist und wenn das der Fall ist, den Termin überspringen. Zusätzlich sind auch Änderungen an bestehenden Terminen über die EntryID recht einfach möglich, falls von Interesse.

Kommt die Liste immer wieder neu, kannst Du z. B. über RESTRICT Einträge filtern.
Eine kleine Function, in die das ausgelagert werden könnte:
Code:

Aufruf über (z. B.)
Code:

Welche Kriterien zu überprüfen sind, damit die Rückgabe eindeutig wird, müsstest Du prüfen - habe ich mir in Deinem Code nicht zu genau angesehen. Anstelle Subject dann ggf. andere Kriterien wählen.

Grüße
EarlFred

 

Hi EarlFred,

Danke für die schnelle Antwort. Allerdings verstehe ich nicht wie ich die EntryID asugelesen bekommen.

Die Datei bleibt bestehen, es werden nur immer neue Daten hinzugefügt.

Nochmal danke für die flotte Antwort und sorry das ich die wahrscheinlich glasklar erklärte Sache nicht so richtig versteh, bin auf dem VBA Gebiet absoluter Neuling.

Grüße,

Jonas

 

Hallo Jonas,

glasklar war das ja nicht beschrieben, eher als Stichwort in den Raum geworfen. *wink.gif*
Musst nur beim Erstellen des Termins eine Zeile einfügen (ungetestet, ggf. sind noch Tippfehler drin):
Code:

Beim Durchlaufen der Termine zu Beginn der Schleife dann die im Offset bezeichnete Zelle prüfen, ob dort etwas drin steht (die Spalte sollte natürlich von anderen Eintragungen freigehalten werden! *wink.gif*).
Skizze:
Code:

Wenn das dann läuft, könntest Du auch auf die "Selecterei" verzichten.
Quellen zum Nachlesen, wie das geht:
Online - Excel Programmierung VBA Makro: Performance (2) - Select Activate Bremsen und ein Beispiel
oder auch Chris' Tutorial
http://www.ms-office-forum.net/forum...d.php?t=263381

Grüße
EarlFred

 

Ein geretteter Tag und das so früh *wink.gif*

Vielen Dank! Problem gelöst!