Grouped sub-projects

Hallo Nina,

probiere es so:

Sub Uebertragen()

Dim LRow As Long

Dim i As Integer
Sheets("Summary Projects").Range("A1:R1").Value = _

   Sheets("Project 1").Range("A1:R1").ValueFor i = 1 To 4

   With Sheets("Project " & i)

      LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

      .Range("A2:R" & LRow).Copy _

         Sheets("Summary Projects").Cells(Rows.Count, "A").End(xlUp)(2)

   End With

Next

End Sub

Claus

Hi,

I can reproduce this issue. But there is a work around:

Create a class module (I called it clsEvents) and add the following code:

Public WithEvents ProjApp As MSProject.Application

Private Sub ProjApp_NewProject(ByVal pj As Project)

MsgBox "Do what you need to do on Project_Open"

End Sub

Create a (normal) module with this code:

Public ProjEvents As New clsEvents

Sub EnableEvents()

Set ProjEvents.ProjApp = MSProject.Application

End Sub

Add the following code in your ThisProject(Global.mpt)

Private Sub Project_Activate(ByVal pj As Project)

Call EnableEvents

End Sub

Project_Activate is fired on each project change, also for creating projects from any template. This will enable events calling procedure EnableEvents. The events are in the class module. After enableing events, you have a lot to choose from (also task,
resource and assignment events). I used "NewProject". Note: this does not mean " a new project is created" but "an additional project is opened"

Here some additional information:
https://msdn.microsoft.com/en-us/library/ee355232(v=office.12).aspx It is still applicable for current versions.

Does that work for you?

Barbara

Hallo DDT 50-29-3,

deine Anfrage bezieht sich auf das Programm Microsoft Project 2010. Aus diesem Grund möchte ich dich bitten deine Anfrage erneut in dem entsprechenden Business-Forum zu stellen.

Das Microsoft Answers Forum ist auf Anfragen von Privatanwendern spezialisiert. Natürlich helfen wir gerne bei eventuell auftretenden Installations- und Aktivierungsproblemen.

Die Kollegen aus unseren Partnerforen sind auf Funktionsprobleme und Nutzungsschwierigkeiten dieser Software geschult.

Leider ist es mir nicht möglich deine Anfrage direkt in das entsprechende Forum zu verschieben, deshalb bitte ich dich diese Anfrage erneut zu erstellen. Es wäre sehr nett von dir, wenn du uns einen Link zu deinem neuen Posting zur Verfügung stellst. Auf
diese Weise können auch andere Benutzer schnell die Antwort finden.



Hier der Link:

Microsoft Project 2010 TechNet

• http://social.technet.microsoft.com/Forums/en-US/category/projectserver2010,projectprofessional2010

Gruss
André

Hallo,

dann hilft Folgendes - alles in der Datei des Ressourcenpools:

1. Ein Klassenmodul einfügen und umbenennen zu "clsEvents"
2. Folgenden Code in dieses Modul einfügen
   
   Public WithEvents ProjApp As MSProject.Application
   
   Private Sub ProjApp_ProjectBeforeResourceNew(ByVal pj As Project, Cancel As Boolean)
   
   MsgBox "Bitte eine vorhandene Ressource auswählen"
   
   Cancel = True
   
   End Sub
3. Ein weiteres Modul (nicht Klassenmodu, ein normales) erstellen und folgenden Code einfügen:
   
   Public ProjEvents As New clsEvents
   
   Sub EnableEvents()
   
   Set ProjEvents.ProjApp = MSProject.Application
   
   End Sub
4. In "ThisProject (<Name des Ressourcenpools>)" diesen Code einfügen:
   
   Sub Project_Open(ByVal pj As Project)
   
   EnableEvents
   
   End Sub

Viel Erfolg!

Barbara

Hallo,

hmm, das wird wirklich beim Öffnen nicht berechnet. Dann gibt es nur die Option, das über ein Makro durchzuführen. Hier hatte ich beschrieben wie man Makros übernimmt:

Makros in Project übernehmen

In diesem Fall ist folgendes Makro zu verwenden:

Private Sub Project_Open(ByVal pj As Project)

Application.CalculateProject

End Sub

Dieses Makro muß nicht, wie im Blog beschrieben, in ein eigenes Modul, sondern in "ThisProject". (Bei ThisProject kann man "Project_Open als Event verwenden, so dass das Makro bei jedem Öffnen eine Projekts läuft). Wenn nur in diesem einen Projekt (bei mir
heisst es "Datum.mpp") die Berechnung durchgeführt werden soll, reicht es, den Code in "ThisProject( Datum.mpp)" abzulegen. Wenn alle Projekte beim Öffnen neu berechnet werden sollen, sollte der Code in "ThisProject (Global.MPT)" abgelegt werden. Dann erfolgt
die Neiberechnung für alle Projekte, die auf diesem Rechner geöffnet werden.





Hilft das?

Viele Grüße

Barbara