Range.Copy Method an einzelne Zellen anpassen
19.09.2017 12:42:28
Norbert
es gibt ja die Range.Copy Method, welche wie folgt aussieht:
Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")
Ist es möglich die Methode soweit anzupassen, dass der Inhalt in seperate, einzelne Zellen kopiert wird und nicht nur in eine Zelle oder in einen gesamten Bereich?
Ich möchte als Ziel (Destination) nicht einen Bereich (Range) angeben, sondern mehrere voneinander durch Leerzellen getrennte einzelne Zellen. z.B Kopiere Inhalt aus A1 zu A20, A40, A60.
Die Methode gibt mir jedoch nur die Möglichkeit als Range "A1:A60" anzugeben, was bedeuten würde, dass auch alle Leerzellen dazwischen befüllt werden, was nicht gewünscht ist. Der Wert aus A1 soll nur in A20, A40 & A60 eingefügt werden.
Ich habe es wie hier versucht anzupassen, funktioniert leider nicht. Ist es generell nicht möglich?
Sub KopierBefehl()
Worksheets("Worksheet1").Cells("A1").Copy _
Destination:=Worksheets("Worksheet1").Range(Cells("A20"), ("A40"), ("A60"))
End Sub
Beste Grüße,
Norbert