habe das Makro aus dem Internet. Ich benutze Excel 2013 und MS-Project 2013
Ich möchte mit MS Projekt die Daten aus Excel auslesen und in den Standartkalender kopieren.
Nun bekomme ich beim ersten DIM Fehler beim Kompilieren, Benutzerdefinierter Typ nicht definiert
Habe das Makro im MS Projekt stehen.
Kann mir da bitte jemand weiter helfen ? Was mache ich falsch?
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
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