Hi Forum,
Wie muss ich unten stehenden Code umschreiben, damit er mir nur die Werte und das Format einfügt, nicht aber die Formel?
Sheets("BM-Datenbank").Range("A" & j.Row).Copy Sheets("Ölwechsel").Range("A" & n) Danke im Voraus, Eleni
Hallo Eleni,
wie gefällt Dir das?
Sheets("BM-Datenbank").Range("A" & j.Row).Copy With Sheets("Ölwechsel").Range("A" & n) .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End With Application.CutCopyMode = False Viel Erfolg wünscht WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
AW: Copy Wert & Format, nicht aber Formel
13.09.2005 12:56:56
Eleni
Hi Werner,
Danke für die Hilfe. Funktioniert einwandfrei. Ciao, Eleni