In den jeweiligen Kalendern von Project können Ausnahmen für arbeitsfreie Tage eingetragen werden. Liegt eine Liste mit diesen Ausnahmen in Excel vor, kann diese nicht einfach per Copy und Paste in ihrer Gesamtheit kopiert werden. Schade.

Damit Project auf Excel im VBA zugreifen kann, muss in Extras – Verweise der Zugriff auf Microsoft Excel gewährt werden. Zunächst mit ALT + F11 den VBA-Editor öffnen, dann den Zugriff gewähren.

Anschließend den unten stehenden Code in ein neues Modul kopieren und den Pfad zur Datei anpassen.

Folgender VBA-Code öffnet zunächst eine Excel-Datei und liest anschließend Zeilenweise die Daten der jeweiligen Ausnahmen in die Ausnahmeliste des Kalenders „Standard“:

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(„C:\Users\Andreas\Desktop\KalenderStandard.xlsx“)

i = 2

With xlWkb.Sheets(„Feiertage“)
Do Until .Cells(i, 1).Value = „“

Bezeichnung = .Cells(i, 1).Value
Startdatum = .Cells(i, 2).Value
Enddatum = .Cells(i, 3).Value

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

Achtung: Das Makro beinhaltet noch keine Fehlerprozeduren und prüft nicht, ob die Termine eventuell schon vorhanden sind.

Nun kann das Makro z.B. mit Alt + F8 ausgeführt werden.
Unter Projekt – Arbeitszeit ändern lassen sich die neuen Ausnahmen einsehen.

Videolink:

Link zum Video bei YouTube: http://youtu.be/3advDEF3iyo