copy & paste
Bastian
folgendes Problem hab ich schon seit ein paar Jahren. Bisher konnte ich es allerdings mit .Activate lösen. Was jetzt nicht mehr geht und ich auch endlich mal wissen möchte was ich den eigentlich falsch mache. Folgendes Problem:
Die aktive Tabelle ist "Tabelle1", diese soll auch aktiv bleiben da ich hier den Programmablauf darstellen möchte.
In "Tabelle2" möchte ich einen Bereich kopieren und in "Tabelle3" einfügen. Mein Beispielcode sieht jetzt mal so aus:
Sub ObjectTest()
Dim Tab2 As Worksheet
Dim Tab3 As Worksheet
Dim copyRange As Range
Dim targetRange As Range
Set wsTab2 = ThisWorkbook.Worksheets("Tabelle2")
Set wsTab3 = ThisWorkbook.Worksheets("Tabelle3")
Set copyRange = wsTab2.Range("A2:A3")
Set targetRange = wsTab3.Range(Cells(2, 1), Cells(3, 1))
copyRange.Copy Destination:=targetRange
Application.CutCopyMode = False
Set copyRange = Nothing
Set targetRange = Nothing
Set Tab2 = Nothing
Set Tab3 = Nothing
End Sub
Bin für jeden Hinweis Dankbar.
MfG
Bastian Schneck
Anzeige