Formate aus Sheet 1 in die nächsten 49 übertragen
Albert
nun bereits zum dritten Mal spricht mich ein Kollege an, der auf 50 Sheets seine tägliche Datenauswertung macht und die Formatierung ihm einen Strich durch die Rechnung macht.
Ich hab nun vor, im ersten Sheet die Formatierung herzustellen, so wie es sich gehört und via Macro die Formatierung der nachfolgenden Sheets löschen/analog Sheet 1 einfügen.
Mit dem Macrorecorder hab ich nun mal den Ansatz dafür, aber das berühmte Brett vorm Kopf...
Excel hat nun beim Aufzeichnen Tabelle 1 und Tabelle 2 da stehen, die Sprungdeklaration hab ich mal versucht...
Würd mich super freuen, wenn mir einer/eine weiterhelfen könnte.
Sub Formatierung_übertragen()
Dim wks As Worksheets
Sheets("L1 FS").Select
Columns("F:G").Select
Selection.Copy
Next wks.Select
Columns("F:G").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F1").Select
End Sub
Viele Grüße aus der Oberpfalz
Albert