Habe 2 Arbeitsmappen,hier werden die Werte von wkb1 in wkb2 kopiert,funktioniert auch.
Nur die Nullwerte werden nicht durch "" ersetzt.
wkb1.Sheets("Schichtplan SM & Gemenge").Range("C6:C36").Copy
wkb2.Sheets("Jän").Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
_
:=False, Transpose:=True, What:="0", Replacement:=""
Könnte mir bitte jemand weiterhelfen?Danke,Heinz