[vba] Excel Tabellenblatt kopieren

[kuekenMcNugget]

Hi @ all,

ich muss ein Makro schreiben, dass ein Tabellenblatt kopiert. Das ist ja auch nicht das Problem. Nur soll das neue Tabellenblatt keine Funktionen mehr enthalten, sondern nur die Werte und die Formatierungen (Zeilenhöhe, Zeilenbreite, Farbe, etc.) sollen auch bebehalten werden.

Wie stelle ich das am besten an?

[kuekenMcNugget]

ok habs gerade selber gelösst...

Für alle die irgendwann mal das selbe Problem haben hier der Code:

        Worksheets("Test").Activate

        Range("A1").Activate

        Cells.Select

        Selection.Copy


        Worksheets("Kopie von Test").Activate

        Range("A1").Activate

        With ActiveWorkbook.ActiveSheet.Cells

            .PasteSpecial Paste:=xlPasteValues ' Werte

            .PasteSpecial Paste:=xlFormats ' Formate

        End With


        ActiveWindow.DisplayGridlines = False