Code erweitern
16.10.2021 12:06:04
Lorenz
mit dem folgenden Code wird ein Bereich eines Blattes in ein anderes kopiert. Das Kopierte sollte aber in mehreren Blättern eingefügt werden.
Einige Versuche wie z.B.:
Set Union(wksWert, wks2,wks4,wks10) schlugen leider fehl
Sub Kopieren()
Dim wsQuelle, wsZiel As Worksheet, strZiel As String, lngLastQ As Long, lngLastZ As Long
Set wsQuelle = tbl_Kalender
Set wsZiel = wksWert
strZiel = ("ABR3")
lngLastQ = wsQuelle.Cells(letzteZeile, 746)
lngLastZ = wsZiel.Cells(13, 746)
wsQuelle.Range("ABR3:ABR" & letzteZeile).Copy wksWert.Range(strZiel)
End Sub
Lorenz