Thema Datum  Von Nutzer Rating
Antwort
Rot Ecel-Termine nach Outlook kopieren
 25.03.2009 06:40:58 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
25.03.2009 06:40:58		 Views:
1657		 Rating:
     
Antwort:
  Ja
Thema:
Ecel-Termine nach Outlook kopieren
Hallo zusammen!
Ich habe mir in Excel (2003) eine Datenbank aufgebaut, um meine Arbeitszeit (tägliche wechselnde Arbeitszeiten) berechnen zulassen.
Nun möchte ich gerne diese Termine, sprich Schichten, nach Outlook übertragen. (Schichtnummer in A2, Beginn Datum in B2, Beginn Uhrzeit in C2, Ende Datum in D2, Ende Uhrzeit in E2, Ort in F2).
Zusätzlich sollten die Schichten noch auf Abweichungen vom vorgeplanten Zeitraum auf tatsächlicher Verlauf korigiert werden.
Folgendes Makro habe ich auf
http://www.wbrnet.info/vbhtm/9916_Termine-nach-Outlook-exportieren.html
gefunden. Ich kann es leider nicht für meine Zwecke abwandeln:
Mit folgenden Makro kann man Termine von Excel nach Outlook exportieren:
Sub Termine_von_Excel_nach_Outlook_exportieren()
Dim OutApp As Object, apptOutApp As Object

'Termine aus Excel-Sheet lesen
Range("A2").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
'Termine werden aus den Zellen gelesen
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " " & Format(ActiveCell.Offset(0, 1).Value, "hh:mm")
.Subject = ActiveCell.Offset(0, 2).Value
'Zusätzlicher Text
.Body = ""
'Ort
.Location = ActiveCell.Offset(0, 3).Value
'Dauer des Ereignisses (hier 2 Stunden)
.Duration = "120"
'Erinnerung: 60 min vor Ereignis
.ReminderMinutesBeforeStart = 60
'Erinnerungsfunktion mit Sound
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With

'Nächste Zeile auswählen
ActiveCell.Offset(1, 0).Select

Set apptOutApp = Nothing
Set OutApp = Nothing
Loop

MsgBox "Termine wurden in Outlook eingetragen!"

End Sub


Könnt Ihr mir weiterhelfen.

Gruß Andreas

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ecel-Termine nach Outlook kopieren
 25.03.2009 06:40:58 Andreas
NotSolved