Clever-Excel-Forum

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"

Hallo,

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

Gruß Uwe

Gibt es eine Methode ohne löschen der Formeln?

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

elamigo

Kuwer

elamigo

Rabe