Neues Tabellenblatt anlegen und bennenen per Makro
15.02.2017 09:50:26
Patrick
ich versuche ein Tabellenblatt per Makro anzulegen und automatisch zu benennen, abhängig davon was in einer bestimmten Zelle steht.
Per Makrorekorder habe ich folgendes erhalten:
Sheets("VORLAGE").Select
ActiveSheet.Buttons.Add(821.25, 16.5, 75.75, 18).Select
Sheets("VORLAGE").Copy After:=Sheets(4)
Range("K3").Select
Selection.Copy
Sheets("VORLAGE (2)").Select
Sheets("VORLAGE (2)").Name = "Juni 2017"
Range("M10").Select
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Application.CutCopyMode = False
Selection.Delete
Selection.Cut
Das Tabellenblatt heißt VORLAGE. In Zelle K3 wird der Name des neuen Tabellenblattes angezeigt. Nach Erstellung einer Kopie von VORLAGE soll das neue Tabellenblatt so heißen wie in K3 steht.
Die Erstellung erfolgt per Klick auf den Button "erstellen", dieser Button soll im Nachgang im neuen Tabellenblatt gelöscht werden.
Nun das Problem:
Das neue Tabellenblatt wird erstellt und benannt, jedoch immer Juni 2017, da dieser Text bei Aufzeichnung des Makros in K3 stand. die Benennung muss jedoch variabel sein, es soll nur der Zwischenspeicher eingefügt werden.
Die Löschung des Button "erstellen" (Button 1) erfolgt nicht korrekt. Er wird gelöscht, es erscheint jedoch ein neuer sowie in der Vorlage wird der selbe neue Button aus dem neuen Blatt über den bereits vorhandenen Button "gelegt"
Kann mir Makro-Noob jemand helfen?
Vielen Dank!