WkSh_Q.Columns(rZelle.Column).Copy WkSh_Z.Columns(iSpalte).PasteSpecial xlPasteValues das ist die Lösung :)
