Shapes/Autoformen mitkopieren?
27.01.2019 10:44:57
Anja
ich habe ein Tabellenblatt, welches mit Daten gefüllt wird. Sobald dieses voll ist, kann ich über eine Userform eine Blankoseite anfügen und zwar unter der schon vorhandenen Seite. Das funktioniert soweit.
Nun habe ich allerdings das Problem, dass die Bilder, Shapes wie Autoformen für Buttons und Textfelder der Blankoseite nicht mitkopiert werden.
Kann mir jemand sagen, wie man per VBA alle Inhalte der Blankoseite in ein neues Tabellenblatt überführt?
Vielen Dank schon mal.
Private Sub CommandButton2_Click()
'neue Seite ans Ende kopieren
Dim i As Integer
Dim j As Integer
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim s As Integer
Set Quelltab = Worksheets("Blanko JgJ (2-5)")
Set Zieltab = Worksheets("Jeder gegen Jeden (2-5)")
i = Quelltab.Cells(Quelltab.Rows.Count, 1).End(xlUp).Row
Quelltab.Range(Quelltab.Cells(1, 1), Quelltab.Cells(i + 2, 40)).Copy
j = Zieltab.Cells(Zieltab.Rows.Count, 1).End(xlUp).Row
If j = 30 Then
s = 1
Else
s = Cells(j - 25, 3).Value
End If
Zieltab.Range("A" & j + 3).PasteSpecial Paste:=xlPasteAll
Cells(j + 7, 3).Value = s + 1
Cells(j + 14, 1).Select
End Sub
VG
Anja