Kopieren und Umbenennen von Arbeitsblättern
16.12.2016 10:47:55
Arbeitsblättern
ich habe ein kleines Problem mit einer meiner Arbeitsmappen. Das Problem ist folgendes:
Ich möchte gerne per VBA ein vorgegebenes Muster-Arbeitsblatt kopieren und umbenennen. Dabei soll der neue Name den Namen des Datums enthalten, zu dem die Auswertungen auf dem Arbeitsblatt erzeugt wurden. Meine Lösung bisher:
wks_muster.Copy After:=wks_muster
Set wks_neu = Worksheets(wks_muster.Index + 1)
wks_neu.name = (Datum & " Auswertungsname")
Das Problem ist, dass das Kopieren nicht wirklich funktioniert. Ich rufe über ein anderes Makro eine Vielzahl von Auswertungen auf, die nacheinander erzeugt werden sollen. Alle nach dem gleichen Schema. Problem ist, dass das Kopieren zwar funktioniert, das Umbenennen aber nicht wirklich. Es werden oft andere Arbeitsblätter umbenannt und das bringt mir dann meine ganze Arbeitsmappe durcheinander. Ich glaube, dass das Problem in der 2. Zeile liegt.
Vielleicht hat ja jemand eine Idee, wie ich das Problem lösen kann.
Die Datei kann ich leider nicht zur Verfügung stellen, da sie sensible Kundendaten enthält. Sie besteht aus mehreren (ca. 30) Muster-Tabellenblättern, auf deren Basis für jeden beliebigen Tag eine Auswertung erzeugt werden kann. Dazu werden nur einige wenige Werte auf dem kopierten Muster angepasst.
Vielen dank schon mal für die Hilfe.
Liebe Grüße,
Andi
Anzeige