Code zum Kopieren Anpassen

[Noob0815]

Hallo,

könnt Ihr mir bei einer code Anpassung helfen?
Mein aktueller code:

Code:

With .Range("A2:Z" & lngZeileMax)
    .SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("Temp").Range("A2")
End With

Dieser code Kopiert mit eine Bereich in ein anderes Tabellenblatt.
Nun würde ich gern diesen code so anpassen, das nur die Werte, ohne Formatierung kopiert werden.

Habt Ihr dazu eine Idee

LG

[juvee]

Hi

https://learn.microsoft.com/de-de/office...stespecial

ungetestet

Code:

Range("A2:Z" & lngZeileMax).SpecialCells(xlCellTypeVisible).Copy
Worksheets("Temp").Range("A2").pastespecial xlpastevalues

VG Juvee