Thema Datum  Von Nutzer Rating
Antwort
06.03.2012 14:19:07 Carsten
NotSolved
Blau Termine aus Excel in Outlook übertragen ohne Doppelungen
 08.03.2012 00:19:51 Till
NotSolved
08.03.2012 00:21:55 Till
NotSolved
08.03.2012 15:47:17 Gast78485
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
08.03.2012 00:19:51		 Views:
1576		 Rating:
     
Antwort:
  Ja
Thema:
Termine aus Excel in Outlook übertragen ohne Doppelungen

Hi,

mach doch einfach noch eine Spalte daneben in der steht, ob der Termin schon übertragen wurde und dann z.B.:

Sub Excel_Control_Termin_nach_Outlook()
Dim OutApp As Object, apptOutApp As Object
Range("M2").end(xldown)(2,-1).Select
Do Until ActiveCell.Value = ""
    Set OutApp = CreateObject("Outlook.Application")
    Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
    With apptOutApp
        .Start = Format(ActiveCell.Value, "dd.mm.yyyy hh:mm")
        .Subject = "Rechnung: " & ActiveWorkbook.Name & " kontrollieren"
        .Subject = ActiveCell.Offset(0, 1)
        .Body = ""
        .Location = "Büro"
        .Duration = "60"
        .ReminderMinutesBeforeStart = 15
        .ReminderPlaySound = True
        .ReminderSet = True
        .Save
    End With
    'Nächste Zelle auswählen
    ActiveCell.Offset(1, 0).Select
    'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
    Set apptOutApp = Nothing
    Set OutApp = Nothing
Loop
MsgBox "Super - Termine an Outlook übertragen!"
End Sub

So sollte das Makro dann da weitermachen wo es das letzte mal aufgehört hat (man kann natürlich auch irgendwo direkt die Addresse hinschreiben)... wenn du allerdings auch Termine ändern und Updaten willst müsste man wohl in Outlook alle Termine, bzw. alle Termine mit entsprechendem Kennzeichen löschen und neu erstellen.

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
06.03.2012 14:19:07 Carsten
NotSolved
Blau Termine aus Excel in Outlook übertragen ohne Doppelungen
 08.03.2012 00:19:51 Till
NotSolved
08.03.2012 00:21:55 Till
NotSolved
08.03.2012 15:47:17 Gast78485
NotSolved