ich habe in den Beispielen die angehängte Datei gefunden. Ist es machbar das in der Kopie die Schaltfläche nicht mehr vorhanden ist oder hat jemand einen besseren Vorschlag?
Grüße,
Peter
https://www.herber.de/bbs/user/70930.xls
Sub TabellenBlattKopieren()
Dim s As String
Dim i As Integer
s = _
InputBox("Bitte geben Sie den Namen des Blattes ein!", _
"Blattnamen vergeben", "Tabelle1")
If s = "" Then Exit Sub
i = Sheets.Count
On Error Resume Next
Sheets(1).Copy After:=Sheets(i)
ActiveSheet.Name = s
ActiveSheet.Shapes(1).Delete
End Sub