Mehrere Blätter Format und Formeln übertragen per Knopf druck

[RPP63]

Moin!
Nachdem Du jetzt viele berechtigte Hinweise erhalten hast, dass man das "eigentlich" nicht so machen sollte, halte ich mich jetzt (quasi wie eine künstliche Intelligenz) strikt an die Threaderöffnung.

• erstelle ein Arbeitsblatt mit allen Formeln und Formatierungen, aber ohne Werte
• dieses Blatt ziehst Du ganz nach links und blendest es aus
• um ein neues Blatt auf Basis dieser Vorlage hinten anzufügen:

Code:

Sub NewSheet()
Application.ScreenUpdating = False
With Worksheets(1)
  .Visible = 1
  .Copy After:=Worksheets(Worksheets.Count)
  .Visible = 0
End With
ActiveSheet.Name = Format(Now, "dd.mm.yyyy hh_nn")
End Sub

Ob Du diesen Code einem "Knopf" oder einer Tastenkombination zuordnest, bleibt Dir überlassen.

Gruß Ralf