also ich habe bis jetzt folgendes Makro:
Option Explicit
Dim Monat As Variant
Dim i
Dim j As Byte
Public Sub Add()
Monat = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September" _
, "Oktober", "November", "Dezember")
For i = 0 To 11
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Monat(i)
Next i
End Sub
Public Sub Paste_Personal()
Monat = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September" _
, "Oktober", "November", "Dezember")
For i = LBound(Monat) To UBound(Monat)
Worksheets("Vorlage").UsedRange.Copy Destination:=Worksheets(Monat(i)).Range("A1")
'Worksheets(Monat(i)).Columns.AutoFit
Next i
End Sub
Sub FormatÜbertragen()
Dim WksMonate As Worksheet
Dim WksV As Worksheet
Set WksV = Sheets("Vorlage")
For Each WksMonate In ThisWorkbook.Worksheets
If Not WksMonate Is WksV Then
With WksMonate.PageSetup
.PrintArea = WksV.PageSetup.PrintArea
.CenterFooter = WksV.PageSetup.CenterFooter
.RightFooter = WksV.PageSetup.RightFooter
.LeftFooter = WksV.PageSetup.LeftFooter
.LeftHeader = WksV.PageSetup.LeftHeader
.CenterHeader = WksV.PageSetup.CenterHeader
.RightHeader = WksV.PageSetup.RightHeader
.PaperSize = WksV.PageSetup.PaperSize
End With
End If
Next WksMonate
End Sub
Der erste Sub erstellt 12 Tabellenblätter, für jeden Monat eines, diese werden nach dem Blatt "Vorlage" eingefügt.Der zweite Sub soll eigentlich den gesamten Inhalt und die Formatierung des Tabs "Vorlage" auf die restlichen übertragen, klappt mit der ".Copy Destination:=" allerdings nicht.
Deshalb der dritte Sub, dieser soll Format und Header sowie Footer übertragen, funktioniert allerdings überhaupt nicht, beim Start ist Excel zwar stark am arbeiten aber am Ende sieht alles aus wie davor.
Wie muss ich den zweiten oder dritten Sub verändern dass Inhalt und Formatierung auf alle weiteren Blätter übertragen werden ?
Eine Frage hätte ich noch, ich habe im rechten Header eine Grafik, wie kann ich diese mit übertragen auf die anderen Blätter ? Soweit ich weiß muss man den Pfad der Grafik angeben oder ?