#BEZUG+B1
bei
Worksheets("Werte").Range("i20").Copy Destination:=Worksheets("KDD").Range.Value("B5")
Worksheets("Werte").Range("i20").Copy Destination:=Worksheets("KDD").Range.Value("B5")
Worksheets("KDD").Range("B5").Value = Worksheets("Werte").Range("i20").Value
Gruß Matthias