Excel zu MS Projekt
06.06.2017 16:57:21
Manfred
habe dieses Makro direkt im MS Project im Einsatzt. Es schreibt mir die Feiertage von Excel in den MS Project Standardkalender. Erst jetzt ist ein kleines Problem aufgetaucht. Habe bisher nur ca. 23 Einträge verschickt.
Der Kalender ist immer leer, wenn ich mehr wie 45 Kalendereinträge habe schreibt er mir nur 29 in den Standardkalender und bricht hier ab. ActiveProject.BaseCalendars("Standard").Exceptions.Add Type:=1, Name:=Bezeichnung, Start:=Startdatum, Finish:=Enddatum
Fehlermeldung: Laufzeitfehler 1101, Diese Ausnahme wiederspricht einer bereits vorhandenen Ausnahme in diesem Kalender und kann nicht hinzugefügt werden.
Es sind aber keine doppelten Datumswerte drin.
Was mache ich falsch ? Kann jemand helfen ?
Mit freundlichen Grüßen
Manfred
Sub Feiertage_Importieren()
Dim xlApp As Excel.Application
Dim xlWkb As Workbook
Dim i As Long
Dim Bezeichnung As String
Dim Startdatum As Date
Dim Enddatum As Date
Set xlApp = CreateObject("Excel.Application")
Set xlWkb = xlApp.Workbooks.Open("J:\P_VA_VE_Cost_Reduction\TEAM_Ordner\02_Excel\Feiertage. _
xlsx")
i = 2
With xlWkb.Sheets("Feiertage")
Do Until .Cells(i, 1).Value = ""
Bezeichnung = .Cells(i, 1).Value Zelle A1
Startdatum = .Cells(i, 2).Value Zelle B1
Enddatum = .Cells(i, 3).Value Zelle C1
ActiveProject.BaseCalendars("Standard").Exceptions.Add Type:=1, Name:=Bezeichnung, Start:= _
Startdatum, Finish:=Enddatum
i = i + 1
Loop
End With
xlWkb.Close
Set xlWkb = Nothing
Set xlApp = Nothing
End Sub