ich bitte um etwas Nachsicht, da es sich hier um meinen ersten Forumeintrag handelt. :)
Nun zu meinem Problem:
Ich benutze folgenden Makro um die Termine an Outlook zu senden
Sub Excel_Control_Termin_nach_Outlook_ntnr()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("B8").Select
Zeile1:
ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 4) = "" Then GoTo Zeile1
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Datum und Uhrzeit
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Alternativ werden die Termine aus der Zelle genommen
'.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 08:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
'der Betreff steht in der 4´ten Spalte rechts von den Terminen
.Subject = ActiveCell.Offset(0, 4)
'Zusätzlicher Text ActiveCell.Offset(0, 3)
.Body = ""
'ort
.Location = ""
.Duration = "10"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = False
'Erinnerung wiederholen
.ReminderSet = False
'ganztägiger Termin
.AllDayEvent = False
'Termin speichern
.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 "Termine an Outlook übertragen!"
End Sub
Grundsätzlich funktioniert auch alles so wie ich mir das vorstelle aber es gibt noch 2 Sachen die mich etwas stören.
1. Ich würde gerne eine Endzeit für die Termine eingeben können. Zur Zeit ist es so, dass die Termine um 08:00 anfangen und um 08:10 enden. Es würde mir reichen wenn die Zeit immer 18.00 Uhr ist. Kann man dies umsetzen?
2. Dies ist für mich das größere Problem. Es werden immer alle Termine an Outlook gesendet. Soll heißen wenn ich einen neuen Termin, in der Excel Tabelle erstelle, wird nicht nur dieser gesendet sondern alle. Dies hat zur Folge, dass man etliche gleiche Termine an einem Tag hat. Kann man dies irgendwie abstellen?
Ich hoffe ich habe meine Probleme verständlich beschrieben.
Ich habe mir den Makro mehr oder weniger aus dem Internet zusammenkopiert. Soll heißen ich habe nicht wirklich eine Ahnung von der ganzen Sache :/.
Vielleicht kann mir ja jemand helfen.
Danke und Gruß