mhmm, thanks. i thought so, but somehow it doesnt work:
ws.Range("A2") = ActiveWorkbook.Sheets("Tabelle1").Range("=A20")

i dont get an error, but it just doesnt work