HERBERS Excel-Forum - das Archiv

Thema: paste values per VBA | Herbers Excel-Forum

paste values per VBA
Deister

Hallo zusammen,
Ich sitze wieder auf dem Schlauch ;-(
Mit VBA kopiere ich eine Reihe von Formeln. Dann kopiere ich sie wieder als Werte an die gleiche Stelle.
Range("E5:IJ8").Select
Application.CutCopyMode = False
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Wenn ich die Macro anschliessend laufen lasse bekomme ich immer die Meldung " Do you want to replace the contents of the destination cells". Wie kann ich diese Meldung per VBA unterdrücken?
Danke für die Hilfe
Ant

AW: paste values per VBA
ChrisL

Hallo
Entweder...
Application.DisplayAlerts = False
Range("E5:IJ8").Select
Application.CutCopyMode = False
Selection.Copy
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = True
oder ganz einfach:
Range("E5:IJ5") = Range("E5:IJ5").Value
cu
Chris
AW: Danke Chris
Deister

Besten Dank Chris,
Application.DisplayAlerts = False
Ist die einfachste Lösung für mich
Gruss
Ant