aus Excel in outlook 2010 termin eintragen

Question

Hallo, habe da mal eine frage...??

ist es möglich aus excel heraus in outlock einen termin einzutragen..?

ich habe in meiner excel liste z.b in zelle A1 das datum stehen
nun möchte ich die daten aus zelle B1 und B2 in mein outlock kalender
eintragen .

ist das möglich...?

Danke schon ein mal für eure hilfe !!
Lg.nero

Answer 1

Hallo nero,

Das haben wir schon mal mit Access durchgenommen, es wäre als Quelldatei Excel und als Zielordner im Outlook "Kalender" auszuwählen, wichtig dabei ist, dass vorher die zu verwendende Exceldatei im Format Excel 97-Excel 2003 abgespeichert wird.

siehe:

https://supportnet.de/t/2385551

beachte AW 4 und 5

Zusatzinfo:

http://www.pctipp.ch/tipps-tricks/kummerkasten/office/artikel/excel-kalendereintraege-fuer-outlook-generieren-59213/

Gruß

Paul1

Answer 2

Hallo Paul, danke erst ein mal für die antwort !!!

aber geht es nicht auch so wie ich es beschrieben habe mit ein
makro aus excel...???

so das ich nur ein makro in der tabelle ausführe und der termin
eingetragen wird..?

in ei anderres format abspeichrn ist nicht so gut da meine tabelle mit
vielen makros ausgeführt wird.

Answer 3

Hallo nero,

So wie Du es jetzt beschrieben hast, könnte es schon mit der Umwandlung ins Format 97-2003 Probleme geben.

Ob es mit einem Makro trotzdem ginge, entzieht sich meiner Kenntnis, da meine VBA-Kenntnisse leider nicht ausreichend sind, da wären die Spezialisten gefragt.

Gruß

Paul1

Answer 4

Hallo nero!

Ich habe Dir mal eine alte Beispieldatei von mir hochgeladen. Die Datei kannst Du Dir unter http://excelbeispiele.de/clicktracker/clicktracker.php?id=2098 herunterladen.

MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]

Answer 5

Hi Nero,

vielleicht hilft dir dieser Code weiter:

Sub OutlookEintrag()
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
' Startdatum + Startzeit
.Start = Format(Range("A1"), "dd.mm.yyyy") & " " & TimeValue("11:00:00")

' Dauer, in Minuten wenn fix
.Duration = 60

' Betreff
.Subject = Range("B1")

' Notizen
.Body = Range("B2")

'Ort des Termins
.Location = "Bei mir zu Hause"

'Kategorie zuschreiben
.Categories = "Bestellungen"

'Erinnerung setzen
.ReminderSet = True

'Anzahl Minuten, bei welcher die Erinnerung vor dem Termin erscheint
.ReminderMinutesBeforeStart = 10

'Wird Erinnerungston abgespielt
' .ReminderPlaySound = True

' Eintrag speichern
.Save

'Termin öffnen in Outlook
' .Display
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
End Sub

Nicht benötigte Teile kannst du selbstverständlich auch ganz weglassen bzw. anpassen.
Eine Endzeit könnte man auch eintragen anstelle des fixen Zeitraums von 60 min.

Bis später,
Karin

Answer 6

Hallo coros , habe da ein problem mit deiner datei...!!
Fehler beim Komilieren
Der Code in diesem Projekt muss für die Verwendung auf 64-Bit-System
aktualiesiert werden.Überarbeiten und aktualiesieren Sie Declare-Anweisungen und
markieren sie sie mit PtrSafe-Atribute.

was auch immer das bedeutet ????


Hallo Beverly, ich werde es auch jetzt mit deinem mal versuchen !!

vieleicht gibt es ja noch mehrere ideen dazu..??!!


Danke euch allen !!!

Answer 7

Hallo Beverly !!! vielen dank an dich !!!!!!!!!

es ist genau das was ich gesucht habe und es geht hervoragend.

ist es aber noch möglich fals outlok noch geschlossen ist das er mir die termine
einträt oder muß ich dazu outlok immer offen haben ..???

gruß nero

Answer 8

Hi Nero,

Outlook muss dazu nicht geöffnet sein - du kannst es allerdings automatisch öffnen lassen, indem du in der Zeile

' .Display

den Apostroph entfernst.

Bis später,
Karin

Answer 9

Hallo Beverly,

noch ein mal danke an dieser stelle für die Hilfe !!!!

es geht wunderbar !!!!!!!