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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen