Hallo,

ich habe eine Datei mit drei Tabellenblättern (PDF_1; Zert_D; Übertrag).

Diese koopiere ich via CommandButton mithilfe folgender Formel:

Private Sub CommandButton1_Click()
Sheets(Array("PDF_1", "Zert_D", "Übertrag")).Select
Sheets("Zert_D").Activate
Range("O2") = Range("O2") + 1
Range("P2") = Range("P2") + 1
Range("Q2") = Range("Q2") + 1
ActiveSheet.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.OLEObjects("CommandButton1").Delete
ActiveSheet.Name = "Zert_D" & Sheets("Zert_D").Range("O2").Text
Sheets("Übertrag").Activate
ActiveSheet.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "Übertrag" & Sheets("Zert_D").Range("P2").Text
Sheets("PDF_1").Activate
ActiveSheet.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "PDF_" & Sheets("Zert_D").Range("Q2").Text
End Sub

Die Formel funktioniert auch wunderbar, auch das Umbenennen klappt 1A.

Im Tabellenblatt PDF_1 haben die Formeln Bezüge zu den Tabellenblättern Übertrag und Zert_D.

Wie kann ich meine Formel jetzt anpassen, so dass sich die Formeln im koopierten Tabellenblatt PDF_2 auf die Tabellenblätter Übertrag2 und Zert_D2 beziehen? Und wie bekomme ich das hin, dass das Ganze auch bei 40 x koopieren klappt?

Danke.