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

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

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Mehrere Blätter Format und Formeln übertragen per Knopf druck (/thread-29306.html)

Seiten: 1 2 3

RE: Mehrere Blätter Format und Formeln übertragen per Knopf druck - RPP63 - 27.03.2026

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

RE: Mehrere Blätter Format und Formeln übertragen per Knopf druck - d'r Bastler - 27.03.2026

Moin Ralf,

ich fand menschliche Intelligenz schon immer besser als künstliche ...?

lg

RE: Mehrere Blätter Format und Formeln übertragen per Knopf druck - RPP63 - 27.03.2026

Du hast das Wörtchen quasi beachtet?
War kein Füllsel, sondern bewusst gewählt.
Wink