Neues Blatt automatisch einfügen

[schauan]

Hallöchen,

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.

[MatzeP]

Es soll kein leeres Blatt kommen. Es soll die Vorlage, die mit den gelben Kasten zum Ausfüllen, kommen.

[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.

[MatzeP]

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"

[marose67]

Hallo,

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