so ganz habe ich nicht verstanden, was du kopieren möchtest. Aber ein "putinClipboard" ist nicht notwendig.
Kopiert wird (in einfachen Fall)
Range("A2:A25).copy sheets(2).cells(1,1)
Um einen Range in eine mit Komma getrennten String zu bringen:
dim Tx as string
Tx = join(application.transpose(Range("A1:A10")), ", ")
um eine Zeile in einen String zu übergeben, braucht es 2x transpose, also
Tx = join(application.transpose(application.transpose(Range("A1:AF1"))), ", ")
|