soll das dann wirklich nur ein leeres Blatt werden bzw. was ist die Vorlage? Ich würde ein unausgefülltes Blatt verbergen und dann eine Kopie als neues Blatt erzeugen.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
27.03.2020, 11:15 (Dieser Beitrag wurde zuletzt bearbeitet: 27.03.2020, 11:15 von schauan.)
Hallöchen,
so wird Dein Blatt Vorlage … kopiert. Das funktioniert aber nur 1x, weil ich es umbenenne und einen festen Namen verwende. Ohne Umbenennung hättest Du dann Vorlage … (2), Vorlage … (3) usw.
. \\\|/// Hoffe, geholfen zu haben. ( ô ô ) Grüße, André aus G in T ooO-(_)-Ooo (Excel 97-2019+365)
Sieht ja schon mal gut aus. Wäre toll wenn der Button am Ende des Blattes wär und heißen würde: Neue Vorlage erstellen
Die eingetragen Vorlage wird ja mit neuem Namen versehen durch den Eingeber. Es wäre gut wenn dann die Vorlage wieder heißt "Vorlage Chemie- und Feueralarm"
Wenn Du die Tabelle öffnest und dann die Tastenkombination ALT + F11 drückst, dann kommst Du in die Programmierebene. Ersetze den dortigen Code gegen: Option Explicit
Private Sub CommandButton1_Click()
Sheets("Vorlage Chemie & Feueralarm").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = InputBox("Unter welchem Namen soll gespeichert werden?", "Speichern als", , , , "DEMO.HLP", 10)
ActiveSheet.Unprotect
.OLEObjects.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
With ThisWorkbook.VBProject.VBComponents(.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
End Sub
Dann kommt eine Abfrage wie die neue Tabelle heißen soll. Der Rest blieb erhalten.
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
