Office: (Office 365) VBA - verknüpfte Arbeitsblätter vervielfältigen / kopieren

Hi,

um Tabellenblätter auf Basis eines Tabellenblattes zu kopieren habe ich folgenden Code, der gut funktioniert:

Code:

Sub TabsErstellen()
    Dim intZaehler As Integer
    For intZaehler = 1 To 40
        Worksheets("I1").Copy after:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = intZaehler + 1
    Next intZaehler
End Sub

Gibt es eine Möglichkeit statt einem 2 Arbeitsblätter in dieser Art jeweils 38 mal zu kopieren und fortlaufend durchzuzählen, aber so, dass jeweils die 2er Pärchen z.B. Arbeitsblatt A25 und B25 jeweils aufeinander referenziert und verlinkt sind?

Es geht darum, dass ich ein Dokument an viele externe Partner schicken möchte, in dem die beiden Arbeitsblätter jeweils vorhanden und verlinkt sind, deren Arbeitsblattnamen dann aber jeweils speziell benannt und durchbeschriftet sind + wo manche Zelleninhalte aus einer Gesammelten Arbeitsmappe fortlaufend durchbeschriftet werden. (Dazu den Code habe ich schon in einem anderen Post hier erarbeitet)

 

du kopierst doch schon 40 mal. Was das mit den Zellen A25, B25 zutun hat, konnte ich nicht sehen.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo wowifeelgood,

aber wenn Du das doch an viele externe Partner verschicken willst... Warum machst Du dann die Kopien in die selbe Mappe? Mach doch viele Mappen, für jeden eine mit jeweils 2 Worksheets.

Und vielleicht löst sich damit auch dein Referenzierungs-Problem...

Gruß,
Lutz

 

Hallo Hajo,

danke für die Antwort. Leider funktionierte der VBA Code bei mir nicht und es war mir zu viel aufwand alle relevanten Daten zu entfernen. Insofern habe ich jetzt eine fiktive Arbeitsmappe erstellt mit dem Schema, was ich vorhabe und den zwei VBA Codes, die ich bislang nutze, ebenfalls darauf angepasst. (Umschreiben auf meinen realen Fall bekomme ich dann schon hin.)

Die Datei sollte aber mein Schema und Problem ganz gut darstellen und auch die Referenzen, von denen ich sprach sind hierin enthalten.

Es geht um folgendes Vorhaben:
die Worksheets (WS) "Gesamtübersicht" und "Projektübersicht" sollen nie raus gehen, sondern dienen nur späteren analysen, wo wieder was ausgelesen werden soll, wenn neue Daten als Dateien hereingekommen sind.
Die WS "Proj. Nr.1 - Report" und "Proj. Nr.1 - IP PV" sollen jeweils X mal (in dem VBA Code jetzt erstmal 10 mal kopiert werden. Mit meinem Code bekomme ich die beiden WS zwar jeweils 10 mal kopiert, aber nur separat und dann nichtmehr untereinander referenziert.
In meinem nächsten VBA-Code überschreibe ich dann im Moment nur die neu erstellten WS Namen + ein paar Zellen statisch aus der WS "Projektübersicht". dies soll fortlaufend geschehen z.B. bis WS 10 oder 40 etc.

Eigentlich ist jedoch das Ziel, dass jeder Projektverantwortliche pro Projekt eine Datei erhält mit zwei WS - eben dem Report und dem Input WS, wo pro Datei das Report-WS auf das Input-WS referenziert und verknüpft ist. Ich dachte halt nur, es wäre einfacher zunächst innerhalb einer Datei die X Reports und Inputs zu generieren, um dann jeweils die Pärchen als einzelne Dateien abzuspeichern.

Das Auslesen etc. ist nochmal ein ganz anderer Schritt und das möchte ich in diesem Thread zunächst eigentlich gar nicht behandeln. Das würde ich denke ich mit PowerQuerry und VBA Kombination noch relativ gut abbilden können. Außer natürlich Ihr/ Du hast Bedenken, dass mein ganzer Ansatz gar nicht zielführend ist,. dann bin ich auch gerne für Ratschläge und Alternativen offen.

 

Hi Lutz, wenn Du dafür Vorschläge hast, wie ich das als Code umsetzen kann wäre ich natürlich auch dafür offen. Ich habe einfach nur keinen Ansatz, wie ich Mappen erstelle, wo ich zwei referenzierte Worksheets drin habe, die dann aber jeweils dynamisch nach den jeweiligen Projektnamen benannt sind und wo die statischen Einträge dort jeweils aus der Projektübersicht enthalten sind.

 

So richtig ist mir das nicht klar....
Du redest leider im Post von anderen WS als im Beispiel vorhanden...
Und wenn in "Input-Pr.1" (="Proj. Nr.1 - IP PV"?) der Projektverantwortliche Werte eingeben soll, dann musst Du sie ja dauerhaft zur Verfügung haben und nicht erst beim Versand, oder?

Und wenn ich mir die Summen deiner Projekte anschaue... Ihr habt doch sicher bessere Möglichkeiten als ein dahingewurschteltes Excel-Makro...

 

Hi Lutz,

die Summen sind rein fiktiv und nein, wir haben da keine besseren Möglichkeiten und die Alternative ist alles manuell auszufüllen, zu verteilen und anschließend wieder einzutragen.

Das Beispiel habe ich erst nach dem Kommentar von Hajo fiktiv angenommen und mich deshalb im Ursprungspost noch nicht darauf bezogen. Inhaltlich ist es aber genau das, was ich brauche und suche.
Die Werte, die der Projektverantwortliche eingeben soll werden an einem bestimmten Stichtag eingetragen und aus allen Projekten gesammelt und dann ausgewertet (Quartalsweise) Das heißt das Prozedere des Daten-Einholens werde ich dann jedes Quartal durchführen und zu dem jeweiligen Stichtag eine neue "Zusammenfassende" Excel-Datei erstellen, die die Quartals-Input-Mappen der Projekte zusammenfasst und als Report ausgibt. Ich möchte dann quasi Pro Quartal die einzelnen Projekt-Mappen mit den Stichtags-Inputs und meine zusammenfassende Mappe on Top haben, die diese auswertet - das dann zu jedem Quartal in einzelnen Ordnern abgelegt.

 

Hallo wowyoufeelgood,
ohne weitere Überprüfung im Vorfeld, ob Blätter bereits vorhanden. (evtl. vorher entfernen)
Erzeugen der gewünschten Tabellen - zum weiteren "Ausbau" als Anregung gedacht.

Code:

Option Explicit
Sub TabsCopys()
Dim c As Long, z As Long

c = 9 'Anzahl der Kopien

For z = 2 To c + 1
    Sheets(Array("Report-Pr.1", "Input-Pr.1")).Copy After:=Sheets(Sheets.Count)
    Sheets("Report-Pr.1 (2)").Name = "Report-Pr." & z
        Range("B2").FormulaLocal = "=Projektübersicht!B" & z + 3
        Range("B3").FormulaLocal = "=""Report-Pr."" & Projektübersicht!A" & z + 3
        Range("B4").FormulaLocal = "=Projektübersicht!C" & z + 3
    Sheets("Input-Pr.1 (2)").Name = "Input-Pr." & z
Next z
End Sub

 

Hallo liebes Forum und guten Morgen Dirk,
ich bin neu hier und habe durch Zufall, über Google, den Weg in dieses Forum gefunden.
Deinen Code habe ich ausprobiert und frecher Weise für meine Belange verändert.
Klappt gut.
Da ich an anderer Stelle schon mal schlechte Erfahrungen gemacht habe, möchte ich dich
offiziell fragen, ob ich das überhaupt darf. >ganz lieb guck<
Liebe Grüße Cam

 

Guten Morgen Cam,
das nenne ich ja mal eine, leider sehr unübliche aber extrem nette Geste.
Natürlich "darfst" du.
Ein Forum lebt und lernt von den Fragen und Antworten aller.
Es ist Gang und Gebe sich und seinen Horizont daran zu erweitern.
Der aus deinem Beitrag zu entnehmende Wille auch mal etwas selbst zu probieren
und nicht nur auf nutzbare fertige Lösungen zu warten finde ich gut.
Solltest du Fragen dazu (oder auch andere Themen) haben, scheue dich nicht und
stelle sie einfach.

Herzlich Willkommen hier im Forum
Viele Grüße zurück Dirk

 

Hallo Dirk,
danke für deine freundliche Begrüßung.
Zu deinem letzten Satz, das werde ich machen.
Grüße Cam