Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblätter kopieren Formelbezüge automatisch anpassen Excel 2016
05.07.2023 10:27:45 Naddus
Solved
09.07.2023 21:56:43 Gast69820
NotSolved

Ansicht des Beitrags:
Von:
Naddus
Datum:
05.07.2023 10:27:45
Views:
949
Rating: Antwort:
 Nein
Thema:
Tabellenblätter kopieren Formelbezüge automatisch anpassen Excel 2016

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblätter kopieren Formelbezüge automatisch anpassen Excel 2016
05.07.2023 10:27:45 Naddus
Solved
09.07.2023 21:56:43 Gast69820
NotSolved