---

Hallo!

Ich musste die Arbeitsblätter von unserer Projektvorlage in "Datenbank/Projektvorlagen/" ändern.
Diese Änderungen müssen auch in allen bereits fertigen Projekten nachgezogen werden.

Welche Möglichkeiten habe ich?  Muss ich jetzt Projekt für Projekt durchgehen und die Arbeitsblätter händisch ersetzen, oder gibts dafür ein Makro? 

LG SFeko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo SFeko,

ich hab das Problem wie folgt gelöst: siehe code
Dabei werden alle Arbeitsblätter inkl. Projektvorlagen durch die Blätter aus den Vorlagen (root) ersetzt.

Zuerst werden alle Projekt-Blätter gelöscht und danach frische Blätter reinkopiert.

Andere und Nicht genutzt-Blätter werden nicht übernommen

Ohne Gewähr

Code:

---

Option Explicit

Sub ArbeitsblaetterKopieren()
    Dim objProjects As ObjectItems
   
    'Projekte-Ordner
    Set objProjects = Application.Folders.Projects.FindObjects(aucObjProject, aucSearchHierarchical)
    Call ProcessSheetsCopy(objProjects)

    'Projektvorlagen-Ordner
    Set objProjects = Application.Folders.ProjectTemplates.Children
    Call ProcessSheetsCopy(objProjects)
   
    Set objProjects = Nothing
End Sub

Private Sub ProcessSheetsCopy(ByVal objProjects As ObjectItems)
    Dim objTemplate As ObjectItem
    Dim objProject As ObjectItem
    Dim objItem As ObjectItem
    Dim l As Long

    'Vorlagen-Ordner (Master)
    Set objTemplate = Application.Folders.Templates.Children.Item("Arbeitsblätter").Children.Item("Favoriten")

    Call Application.WaitDialog.Start(100, "Arbeitsblätter kopieren", aucAnimFileCopy, "Arbeitsblätter")

    For l = 1 To objProjects.Count
        Call Application.WaitDialog.Update(100 / objProjects.Count * l, "Bitte warten...")

        Set objProject = objProjects.Item(l).Project.TemplatesFolder.Children.Item("Arbeitsblätter").Children.Item("Favoriten")
       
        'Alte Arbeitsblätter werden gelöscht
        For Each objItem In objProject.Children
            objItem.Delete
        Next
       
        'Neue Arbeitsblätter werden kopiert
        For Each objItem In objTemplate.Children
            Call objItem.CopyTo(objProject, True)
        Next
    Next

    Call Application.WaitDialog.Stop

    Set objProjects = Nothing
    Set objTemplate = Nothing
    Set objProject = Nothing
    Set objItem = Nothing
End Sub

---

[Diese Nachricht wurde von -ismail- am 20. Jul. 2018 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wir haben uns auch so ein Makro geschrieben um die Vorlagen (Blatter + Worksheets) aus einem Vorlageprojekt abzugleichen.
Will man nun aber die die Formblätter im Projekt ersetzen machen wir das Manuel über die entsprechende Funktion ... Das dauert mit unter sehr lange.

------------------
Gruß aus Bielefeld 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wie lange dauert es bei euch so eine Aktion?

Für ein Projekt sollte es binnen Sekunden erfolgen 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Meinst Du die Vorlagen aus einem Vorlageprojekt in das Ziel-Projekt kopieren? Das dauert nur ein paar Sekunden.
Wenn Du das Formblätter ersetzen meinst, .... Das kann schon wirklich ewig dauern. Hab mal gerade bei zehn Stromlaufplan Seiten das Formblatt ersetzt und die Zeit gestoppt. Ergebnis: 1:07 Minuten(!).

------------------
Gruß aus Bielefeld 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie ich befürchtet habe....  Es gibt also keine fertige Funktion oder ein Makro dafür.
Ich werd mich wohl oder übel mit dem Programmieren von VBA-Makros auseinandersetzen müssen. Da wir bis vor einem halben Jahr mit ELCAD gearbeitet haben, war das bis jetzt nicht notwendig. 

Danke trotzdem für die Antworten und vor allem den Beispielcode!! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP