Ich bin auf der Suche nach Hilfe.
Die Ausgangslage: Ich habe 4 Tabellenblätter, welche verschiedene Spaltenbreiten und verschiedene Anzahl Zeilen haben. Ich möchte die Zeilen auf den jeweiligen Blättern kopieren und in einem Neuen Tabellenblatt als Bild einfügen. Die Bilder sollten alle Untereinander in der Spalte A und bei Seitenende auf eine neue Seite eingefügt werden .
Mit dem untenstehenden Makro krieg ich die Zeilen kopiert und als Bild eingefügt, nur wenn es mehr als 2 Bilder sind krieg ich das 3. Bild nicht mehr unten hin und das Bild wird bei Seitenende geteilt.
Kann mir jemand helfen?
Besten Dank im Voraus
Private Sub CommandButton21_Click()
letzteZeile = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 3
Worksheets("Tabelle1").Range("A1:D" & letzteZeile).CopyPicture
Worksheets("Tabelle3").Paste _
Destination:=Worksheets("Tabelle3").Range("A1:D" & letzteZeile)
End Sub