Bestimmte Spalten nach Outlook

Hallo Leute,
ich habe noch zwei Fragen zum Senden von Terminen nach Outlook aus Excel welche mir auf den Nägeln brennen.
Im nachfolgenden Macro wird die Spalte I als Anfangszeit und die Spalte J als Endzeit des Termins übergeben. Bei manchen Terminen befindet sich die Anfangszeit jedoch in Spalte L und die Endzeit in Spalte M (muß leider so sein!).
Kann mir jemand helfen den Code so zu ändern, dass entweder die Spalten I und J, oder wenn diese leer sind die Spalten L und M als Anfangszeit bzw. Endzeit übergeben werden?
Mein zweites Problem ist das die Termine nur dann übergeben werden sollen, wenn in den o. g. Spalten eine Anfangszeit bzw. Endzeit steht!
Herzlichen Dank für jede Hilfe
Viele Grüße
Mat
Code aus dem bestehenden Macro:
iRow = 4
Do Until IsEmpty(Cells(iRow, 1))
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Start = Cells(iRow, 2).Value + Cells(iRow, 9).Value
.End = Cells(iRow, 2).Value + Cells(iRow, 10).Value
.Subject = "Dienst"
.Location = Cells(iRow, 7).Value
.Body = Cells(iRow, 19).Value & " Streifenpartner"
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
.Move olCal
End With
iRow = iRow + 1
Loop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo GerWas,
bekomme jetzt den Fehler "Mehrfachdeklaration im aktuellen Gültigkeitsbereich"
iRow As Integer wird dabei blau
Hier ist nochmal der gesamte Code:


Sub WriteCalendar()
Dim SpalteStart, SpalteEnde, iRow
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olCal As Outlook.MAPIFolder
Dim olApt As AppointmentItem
Dim iRow As Integer
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
On Error Resume Next
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders("Training")
If Err Then
Set olCal = olNS.GetDefaultFolder(olFolderCalendar).Folders.Add("Training")
Err.Clear
End If
iRow = 4
Do Until IsEmpty(Cells(iRow, 1))
Set olApt = olApp.CreateItem(olAppointmentItem)
If IsEmpty(Cells(iRow, 9)) Then SpalteStart = 13 Else SpalteStart = 9 'Änderung der Stalte wenn  _
I gleich leer
If IsEmpty(Cells(iRow, 10)) Then SpalteEnde = 14 Else SpalteEnde = 10 'Änderung der Stalte wenn  _
J gleich leer
If IsEmpty(Cells(iRow, SpalteStart)) = False And IsEmpty(Cells(iRow, SpalteEnde)) = False Then ' _
Zulassung wenn Start und Ende enthalten sind
With olApt
.Start = Cells(iRow, 2).Value + Cells(iRow, SpalteStart).Value
.End = Cells(iRow, 2).Value + Cells(iRow, SpalteEnde).Value
.Subject = "Dienst"
.Location = Cells(iRow, 7).Value
.Body = Cells(iRow, 19).Value & " Partner"
.BusyStatus = olBusy
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
.Move olCal
End With
End If
iRow = iRow + 1
Loop
ERRORHANDLER:
Set olApt = Nothing
Set olCal = Nothing
Set olNS = Nothing
Set olApp = Nothing
End Sub

Wäre wirklich froh wenn mir hierbei jemand weiterhelfen könnte.
Beste Grüße
Mat

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread