mit
Cells(1, 1).Copy Cells(1, 3)
kopiere ich eine Zelle zusammen mit der Formatierung. Wie kopiere ich nur den Wert?
Gruß Rainer
Sub Werte()
' Formeln ersetzen durch Werte ohne Formate
Columns("B:C").Copy
Columns("B:C").PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False 'Zwischenspeicher löschen
End Sub