bestimmte Auswahl komplett mit bedingter Formatierung in neue Datei kopieren

[BrianMolko1980]

Hallo in die Runde 

ich würde gerne aus der angehängten Datei, Spalte A-AC und Zeile 1-37 komplett mit bedingter Formatierung, in eine neue Exceldatei übernehmen wollen.

scheiter aber gerade daran   

falls jemand eine Lösung hat bedanke ich mich jetzt schon mal !!!

Gruß Ron

[00202]

Hallo Ron,  

du könntest doch auch das Tabellenblatt kopieren?  

Code:

Tabelle1.Copy

[BrianMolko1980]

in dem alten Blatt sind aber zu viele Zeilen und Spalten noch aktiv die ich nicht brauche

[00202]

Hallo,  

du könntest anschließend die überflüssigen Spalten/Zeilen löschen:  

Code:

Option Explicit
Public Sub Main()
    Tabelle1.Copy
    With ActiveSheet
        .Range(.Rows(38), .Rows(.Rows.Count)).Delete
        .Range(.Columns(30), .Columns(.Columns.Count)).Delete
    End With
End Sub