Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Termine ab Excel-Arbeitsmappe ins Outlook

Forumthread: Termine ab Excel-Arbeitsmappe ins Outlook

Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 09:04:34
Pascal
Termine ab Excel-Arbeitsmappe per VBA ins Outlook übertragen:
Guten Morgen liebe Forumanen.
Mal wieder bin ich auf Eure tatkräftige und nette Hilfe angewiesen.
Folgendes Vorhaben/Projekt, bei welchem ich nicht weiterkomme, resp. nicht weiss, wie anfangen:
Mittels einer kleinen Excel-Tabelle (siehe Musterdatei) werden ein paar Termine errechnet (Vorlaufzeiten etc…) welche es dann
gilt als Termine in den Outlook-Kalender (Outlook 2010) zu übertragen
Siehe Musterdatei im Anhang !
https://www.herber.de/bbs/user/97490.xls
Erklärung:
in der Zelle M2 wird ein Datum eingegeben
in der Zelle N2 wird eine Uhrzeit eingetragen
in der Tabelle werden nun anhand div. Formeln Datums und Uhrzeiten errechnet.
Was soll mittels VBA erreicht werden ?
Es soll eine Schaltfläche da sein, auf deren Klick dann alle Termine welche in Spalte H eine Uhrzeit drin haben in den Outlook-Kalender eingetragen werden. (Termine ohne eine Uhrzeit in Spalte H werden nicht ins Outlook übertragen)
in unserem Beispiel oben währen das also die Excel-Zeilen: 4; 5; 6 und 9
Termin sollte als Beschreibung immer den Text aus H1 und I1 gefolgt von dem Text in Spalte D haben. (in unserem Beispiel also "1111 Testhausen - ………."
Dauer der Termine sollte immer 15min sein.
Als Ort der Termine sollte im der Text aus Spalte C stehen
Geht das irgendwie ?
Bin Euch für Eure Unterstützung und die Tips sehr dankbar !

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 11:35:25
fcs
Hallo Pascal,
im Prinzip findest du unter der RECHERCHE mit dem Suchbegriff "Termine nach Outlook" schon viel passendes.
z.B.: https://www.herber.de/forum/archiv/1276to1280/1279898_Termine_per_Makro_von_Excel_nach_Outlook_exportier.html#1279898
Hier musst du natürlich den Teil des Makros, der die Daten für die Termine entsprechend zusammenstellt, anpassen. Da bei geringen VBA-Kennnissen dies natürlich etwas schwierig ist, habe ich das Makro mal soweit angepasst, wie ich das ohne Outlook machen konnte .
Beim Ort des Termins muss ich passen, da ich den Namen des entsprechenden Outlook-Unterobjekts nicht kenne.
Gruß
Franz 
'Code in einem allgemeinen Modul der Datei
Option Explicit
Dim objOutlook As Object, objNameSpace As Object
Dim objMapiFolder As Object
Sub Start() 'Dieses Makro der Schaltfläche aus den Formular-Steuerelementen zuweisen
Dim ArrayData, n&, strBody$
Dim strBetreff1 As String, dblDauerMin As Double
dblDauerMin = 15 'Standarddauer der Termine
strBody = "" 'evtl. anpassen oder löschen
With ActiveSheet 'Activeworkbook.Worksheets("Testhausen")
n = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile mit Daten in Spalte A
If n  "" Then 'Uhrzeit in Spalte H vorhanden
If IsDate(ArrayData(n, 7)) And IsNumeric(ArrayData(n, 8)) Then 'Datum und Uhrzeit  _
Beginn ist eingetragen
If ArrayData(n, 4)  "" Then 'Beschreibung ist eingetragen
TermineSchreiben strBetreff:=strBetreff1 & ArrayData(n, 4), _
vonDatum:=CDate(.Sum(ArrayData(n, 7), ArrayData(n, 8))), _
bisDatum:=CDate(.Sum(ArrayData(n, 7), ArrayData(n, 8) + dblDauerMin / 1440)) _
, _
strBody:=strBody, _
strLocation:=ArrayData(n, 3)
Else
MsgBox "In Zeile " & (n + 3) & " fehlt die Beschreibung", , _
"Outlook-Termine erstellen"
End If
Else
MsgBox "In Zeile " & (n + 3) & " ist Datum und/oder Zeit ein ungültiger Eintrag", ,  _
_
"Outlook-Termine erstellen"
End If
End If
Next n
End With
VerbindungOutlook True
MsgBox "fertig"
End Sub
Sub VerbindungOutlook(booCancel As Boolean)
'Exit Sub ' testzeile ohne Outlook
'Outlook-Objekte setzen/zurücksetzen
If booCancel Then
Set objNameSpace = Nothing
Set objNameSpace = Nothing
Set objMapiFolder = Nothing
Else
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMapiFolder = objNameSpace.GetDefaultFolder(9)
End If
End Sub
'Für Termine  ********************************************************************************** _
Sub TermineSchreiben(ByVal strBetreff As String, ByVal vonDatum As Date, _
ByVal bisDatum As Date, ByVal strBody As String, ByVal strLocation As String)
Dim LMinuten As Long
Dim booFind As Boolean
Dim objItems As Object
'dauer in Minuten berechnen
LMinuten = Application.WorksheetFunction.Round((bisDatum - vonDatum) * 1440, 0)
'Exit Sub ' testzeile ohne Outlook
Set objItems = objMapiFolder.Items
objItems.Sort "[Start]"
objItems.IncludeRecurrences = True
Set objItems = objItems.Restrict("[Start] >= '" & Format(vonDatum, "dd.mm.yyyy hh:mm") & "'" & _
_
"AND [Start]

Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 11:59:46
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 11:59:55
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:08
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:13
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:21
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:27
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:31
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

AW: Termine ab Excel-Arbeitsmappe ins Outlook
06.05.2015 12:00:55
Pascal
Sali Franz
schon mal vorab ganz ganz herzlichen Dank für Deine Unterstützung.
ich werde mir gleich mal den Code von Dir mal anschauen (ebenso den Link)
Feedback folgt selbstverständlich
Gruss: Pascal

Anzeige
AW: Termine ab Excel-Arbeitsmappe ins Outlook
07.05.2015 11:15:56
Pascal
Guten Morgen zusammen
besten Dank für Eure Hilfe !
der Code von Franz macht genau was ich suchte.
Herzlichen Dank !
;

Forumthreads zu verwandten Themen

Outlookkalender/ Terminformular öffnen
Dieter

Hallo Forum,
gestern wurde mir geholfen, wie aus Excel (CommandButton) heraus Outlook bequem geöffnet werden kann.
Shell "OUTLOOK.EXE", vbMaximizedFocus
Da es sich bei der Outlookaktivität um einen neuen Termineintrag handelt, wäre es hilfreich, wenn dabei gleich der Kalender oder n...
11.08.2009 16:45:54
Thread-ID: 1095072
7 Beiträge
Serientermin in Outlook
Mister

Hallo,
folgendes Makro zum Erstellen eines Outlooktermins habe ich im Archiv gefunden das wirklich gut funktioniert:
Sub Term_Outl() Dim myOLApp As Object Dim myItem As Object Set myOLApp = CreateObject("Outlook.Application") Set myItem = myOLApp.CreateItem(1) With myItem .Subject = "Ar...
19.10.2009 12:30:27
Thread-ID: 1110553
3 Beiträge
Geburtstage aus Liste in einem Kalender eintragen
Rolf

Hallo Fachleute,
ich habe eine Frage an Jörg, der mir vor ein paar Tagen (27.01.2010) super zu meinem Geburstagsjahresplaner geholfen hat. Natürlich auch an alle anderen die mir helfen möchten. Leider weiß ich nicht wie ich den damaligen Thread nochmals editieren kann. Vielleicht ist er eve...
05.02.2010 16:32:57
Thread-ID: 1136221
2 Beiträge
Anzeige
Termineintrag über Exceltabelle in Outlook
Lemmi

Hallo zusammen,
heute hat "Mann" soviele Vertäge und Angebote die es einem schwierig machen, alles im Bilck zubalten!
Ich möchte gerne wissen ob ich mir aus eine Excel- Datei eine Termineintrag in Outlook machen kann!
Also ich habe eine Musterdatei aufgebaut (https://www.herber.de/...
13.06.2010 15:51:22
Thread-ID: 1161664
13 Beiträge
Termin in Nichtstandardkalender in OL eintragen
Thomas

Hallo,
ich habe zwei Kalender in Outlook, in den "Nichtstandardkalender" möchte ich einen Termin eintragen.
In den Standardkalender habe ich das folgendermaßen getan:
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(olAppointmentItem)
With...
22.07.2010 14:33:29
Thread-ID: 1168314
2 Beiträge
Kalender Datum aus Excel in Outlook importieren
Sophia

Hallo,
ich möchte gerne aus meiner Excel 2007 Tabelle Daten als Kalendereinträge in Office 2003 importieren.
Ich habe folgenden Code: Sub Excel_Control_Termin_nach_Outlook() 'E 2003 ' Für Excel 200 'Dim OutApp As Outlook.Application ' Diese Beiden Wie...
28.07.2010 22:03:53
Thread-ID: 1169378
2 Beiträge
Outlook Termin nach Excel laden - Terminserien
Stephan

Hallo zusammen,
habe ein Problem beim Übertragen von Outlook Terminen nach Excel. Die Termine übertrage ich mit folgendem VBA Code:
Sub termine_lesen Dim myR As Integer, i As Integer Dim startDate As Date, endDate As Date, recDate As Date, extDate As Date Dim MyOlApp As Object, myOlSpac...
02.08.2010 11:43:31
Thread-ID: 1169999
4 Beiträge
Anzeige
Termin im Outlookkalender aus Excelliste erstellen
backi

Hallo zusammen,
über den folgenden Code und einige nachfolgende Variablen kann ich einen Termin im "Standard"-Outlook-Kalender erstellen.
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
Das funktioni...
03.08.2010 15:24:00
Thread-ID: 1170253
8 Beiträge
Termine ins Outlook eintragen
Pascal

Guten Tag allerseits
Ich habe mir - anhand eines Lösungsansatzes hier aus dem Forum - eine kleine Funktion zusammengebastelt die folgendes tun soll:
Auf einer Excel-Arbeitsmappe hab ich verschiedene Knöpfe für verschiedene Schichten
Je nachdem welchen "Schicht-Knopf" ich nun drücke,...
25.03.2011 18:06:17
Thread-ID: 1207606
6 Beiträge
Termine in Outlook importieren von Excel, Probleme
Excel,

Hallo,
Ich bin jack und habe ein problem. Leider konnte bis jetzt niemand mir helfen. Ich hoffe ich bin richtig hier.
Ich habe eine Excel tabelle mit Beginntam, Betreff, Bebinntum, Endetum, Kategorie, Ort, ganztägigesEreignis.
Ich importiere es mit Outlook in den Kalender. Warum sin...
15.04.2011 23:22:59
Thread-ID: 1210695
2 Beiträge
Einfach termin in Outlook einfügen
Sebastian

Hallo,
ich suche eine Möglichkeit wie ich einen Termin in Outlook über Excel einfügen kann.
Ich habe in den Zellen
A1 = Datum
A2 = Zeit
A3 = Terminname
A4 = Termininfo
Jetzt möchte ich gerne auf einen Butoon drück und ein Termin soll im Outlook eingetragen werden.
25.08.2011 22:47:40
Thread-ID: 1227606
2 Beiträge
Exel Adressliste in Outlook importieren
Heinz

Hallo,kann mir einer sagen wie ich eine Adressenliste (Email, Name, Vorname ect.) in Outlook importiere, damit ich ein Rundmail an alle die in der Liste sind machen kann? Als Adressbuch kann man Exeldateien nicht importieren hab ich festgestellt, wie mach ich das nun? Ich hoffe es kann mir eine...
29.05.2002 09:07:42
Thread-ID: 124447
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige