Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.03.2012 14:19:07 |
Carsten |
|
|
Termine aus Excel in Outlook übertragen ohne Doppelungen |
08.03.2012 00:19:51 |
Till |
|
|
|
08.03.2012 00:21:55 |
Till |
|
|
|
08.03.2012 15:47:17 |
Gast78485 |
|
|
Von:
Till |
Datum:
08.03.2012 00:19:51 |
Views:
1588 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Termine aus Excel in Outlook übertragen ohne Doppelungen |
08.03.2012 00:19:51 |
Till |
|
|
|
08.03.2012 00:21:55 |
Till |
|
|
|
08.03.2012 15:47:17 |
Gast78485 |
|
|