Kopiermakro mit Anweisung nurWerteeinfügen
10.05.2004 01:31:00
thomas
mit folgendem Makro kopiere ich Werte. Solange ich keine eingefärbten Blätter habe ist alles perfekt. Bei gefärbten Blättern sollte ich jetzt noch die Anweisung ins Makro einbauen "nur Werte einfügen. Unten habe ich meine Versuche eingefügt, die alle nicht klappen. Kann mir jemand helfen?
Besten Dank für allfällige Hilfe,
thomas
Sub copy()
Dim ws As Worksheet
Set ws = Sheets("Beispieldaten")
With Sheets("BM")
'Für BM-Blatt
.Range("c10") = ws.Range("a1")
.Range("c12") = ws.Range("a2")
.Range("f14") = ws.Range("a3")
.Range("h14") = ws.Range("a4")
.Range("f16") = ws.Range("b3")
.Range("h16") = ws.Range("b4")
ws.Range("a5:d6").Copy .Range("f47:l48").Paste.xlValues--> funktioniert nicht
ws.Range("a5:d6").Copy .Range("f47:l48").Paste: = xlValues-->f.n.
ws.Range("a5:d6").Copy .Range("f47:l48") Paste: = xlValues-->f.n.
ws.Range("a5:d6").Copy .Range("f47:l48") xlValues-->f.n.
ws.Range("a7:a12").Copy .Range("c52:c57").Paste = xlValues
ws.Range("a13:a19").Copy .Range("c60:c66").Paste = xlValues
.Range("c68") = ws.Range("a20")
End with
End Sub