Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.03.2012 14:19:07 |
Carsten |
|
|
|
08.03.2012 00:19:51 |
Till |
|
|
Termine aus Excel in Outlook übertragen ohne Doppelungen |
08.03.2012 00:21:55 |
Till |
|
|
|
08.03.2012 15:47:17 |
Gast78485 |
|
|
Von:
Till |
Datum:
08.03.2012 00:21:55 |
Views:
1720 |
Rating:
|
Antwort:
|
Thema:
Termine aus Excel in Outlook übertragen ohne Doppelungen |
Eintrag in die Spalte M fehlte noch:
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
'Termin übertragen
activecell.offset(0,2)="Ja"
'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
|
- 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 |
|
|
|
08.03.2012 00:19:51 |
Till |
|
|
Termine aus Excel in Outlook übertragen ohne Doppelungen |
08.03.2012 00:21:55 |
Till |
|
|
|
08.03.2012 15:47:17 |
Gast78485 |
|
|