Übertrag v. Worksheet1 auf variable Anzahl v. Wks
01.02.2018 17:35:34
Max
leider komme ich nicht weiter und hoffe, Ihr könnt mir helfen.
Ich möchte gerne aus meinem Worksheet mit dem Namen "Start" ein Formular in alle anderen vorhandenen Worksheets kopieren. Die Anzahl der Worksheets ist dabei variabel. Zudem muss das verborgene Worksheet mit dem Namen "@@XLCUBEDDEFS@@" vernachlässigt (nicht gelöscht) werden.
Auch möchte ich das Printarea am Ende für alle Formulare in den Worksheets festlegen.
Mein bisheriger Ansatz:
Sub kopieren()
Dim wks As Worksheet, wSheets() As String, i&
For Each wks In ThisWorkbook.Worksheets
If Not wks.Name = "@@XLCUBEDDEFS@@" Or wks.Name = "Start" Then
'Aus dem Worksheet Start soll eine Tabelle in alle Worksheets kopiert werden
ReDim Preserve wSheets(i)
wSheets(i) = wks.Name
i = i + 1
Worksheets("Start").Range("A:P").Copy 'Übetrag alles inkl. Reihenbreite
Worksheets(wSheets).Select
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Start").Rows("1:56").Copy 'Reihenhöhe wird übernommen
Worksheets(wSheets).Select
Rows("1:56").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
Next
For Each wks In Worksheets 'Printarea festlegen
With wks
.PageSetup.PrintArea = "$A$1:$P$56"
End With
Next
End Sub
Vielen Dank und Grüße
Max