Excel-Termine via Makro in Outlook importieren

Hallo!
Gibt es eine Möglichkeit via Makro (ich wollte nen Button einbauen), Termine in Outlook zu importieren.
Derzeit gehe ich den Schritt über Outlook direkt (Datei -> Daten importieren -> aus Excel ...). Dabei soll die Option "Dublikate durch importierte Elemente ersetzen" gelten. Eine entsprechende Bereichszuordnung in der Excel-Tabelle ist unter dem Namen "Kalender" von Zelle A1 bis F103 bereits definiert.
Wäre recht angenehm wenn das klappen würde.
Dabei habe ich folgende Zuordnung der Spaltenüberschriften für die Outlook-Termine:
[Outlook Feldname] --> [Excel Spaltenüberschrift]
Betreff --> Bezeichnung 1
Beginnt am --> Datum (Datum)
Beginnt um --> Uhrzeit von (Zeit)
Endet um --> Uhrzeit bis (Zeit)
Erinnerung Ein/Aus --> Erinnerung
Ort --> Bezeichnung 2
Zur Info: Von VBA habe ich leider nicht wirklich die Ahnung - eigentlich gar keine. Fall hier jemand ein Code postet, den ich dann einfach über Copy&Paste für den Button hinterlegen muss, wäre ich SEEEHR DANKBAR!
Viele Grüße
Markus

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus
Dein Problem könnte eventuell hiermit gelöst sein.
Es gibt aber einige Bedingungen.
1. Deine Termine stehen im Bereich A1:F103 in der Order wie du sie angegeben hast.
2. Die erste Zeile ist die Überschrift
3. In den Zellen Beginnt am steht ein ordentliches Datum 01.06.07 z.B.
4. In den Zewllen Beginnt um und Endet um steht eine ordentliche Uhrzeit 13:00 z.B.
5. Endet um liegt nicht im nächsten Tag
6. Die Tabelle mit deinen Terminen ist "active"
7. in spalte Erinnerung ein/aus steht Wahr oder Falsch
Viel Spaß
GerWas


Sub termin_einlesen()
Dim apti As Outlook.AppointmentItem
zl = Cells(2, 1).Value
k = 2 'beginne in zeile 2
Do While zl &lt &gt "" And k &lt 104 'sobald nichts mehr drinsteht aufhören
Set apti = CreateObject("Outlook.application").CreateItem(olAppointmentItem)
apti.Subject = Cells(k, 1) 'betreff
apti.Start = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 3).Value)) 'beginn
apti.End = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 4).Value)) 'endet
apti.ReminderSet = Cells(k, 5).Value
'apti.ReminderMinutesBeforeStart = 60 'erinnerung in minuten
apti.Location = Cells(k, 6).Value
'apti.Display  ' wenn du den termin noch ansehen willst das ' vorn wegnehmen
apti.Save
k = k + 1
Loop
End Sub

Beliebteste Forumthreads (12 Monate)

Excel-Termine via Makro in Outlook importieren

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

151 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel-Termine via Makro in Outlook importieren

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

151 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread