Formel behalten beim kopieren

[elamigo]

Moin zusammen,

ich kopiere eine gefilterte Tabelle mit dem Marko: 

Code:

With ActiveSheet
       .Copy Before:=Sheets(1)
       Set TB = ActiveSheet
       TB.Range("A6:CX1133").ClearContents
       .Range("A6:CX1133").SpecialCells(xlCellTypeVisible).Copy TB.Range("A6")
   End With

So das Problem ist nun dadurch auch die Formeln gelöscht werden. 
Kann mir jemand sagen wie ich es hin bekomme, dass er die Formeln mitnimmt?


Alternative: Oder gibt es Methode ihm zu sagen "schreibe in jede Zelle des Bereiches folgende Formel, wenn die Zelle gefärbt ist"

[Kuwer]

Hallo,

mit TB.Range("A6:CX1133").ClearContents löschst Du ja auch die Formeln.

Gruß Uwe

[elamigo]

Gibt es eine Methode ohne löschen der Formeln?

[Rabe]

Hi,

in dem Du TB.Range("A6:CX1133").ClearContents weg lässt.

Oder

Code:

'TB.Range("A6:CX1133").ClearContents

Der Effekt ist derselbe.


Oder die Formeln mit übertragen:

Code:

Selection.Copy
    Sheets("Tabelle1").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False