Excel-Designfarbe in eine neue Arbeitsmappe kopieren
Ich möchte ein Makro erstellen, das zwei Blätter in eine neue Arbeitsmappe kopiert. Die Themenfarbe in der neu erstellten Arbeitsmappe ist jedoch anders.
Sub Export_File()
Dim Wb3 As Workbook
Dim strSaveName As String
strSaveName = Worksheets("Communication").Range("a2").Value
Set Wb3 = ThisWorkbook
'copy sheets to new workbook
Sheets(Array("Auswertung", "Communication")).Copy
ActiveWorkbook.SaveAs strSaveName
Workbooks(Wb3).Colors = Workbooks(strSaveName).Colors
End Sub
Diese Leitung funktioniert bei mir nicht:
Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
Ich denke, es hat etwas mit Set @ zu t Wb4 = ThisWorkbook Brauchen Sie Hilfe..
Schöne Grüß
