Hallo,
ersetze diese Zeile
objQuellblatt.Cells(Zeile, varSpalten(intSpalte)).Copy _
Destination:=objZielblatt.Cells(Zeile, Columns.Count).End(xlToLeft).Offset(0, 1)
durch
objQuellblatt.Cells(Zeile, varSpalten(intSpalte)).Copy
objZielblatt.Cells(Zeile, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial = xlValues
Application.CutCopyMode = False
Gruß hajo