Hallo flocko, flockxe,
ob Sie mir nochmal helfen könnten dieses Makro zu verbessern.
wieder einmal weiß ich nicht weiter.
In meiner Tabelle markiere ich manuell die gewünschten Zeilen.
Dann führe ich das Makro aus. Das Makro kopiert mir die Zeile 1-7 bis Spalte 16 (Kopfbereich)und die vorher markierten Zeilen in ein neues Tabellenblatt und anschließend die Formatierung.
Aber keine Kopf und Füßzeilen und das jpg Bild im Kopfbereich bleibt in der Höhe zusammengeschoben.
Die Formatierung der gesamten Tabelle wird in die neue kopiert, der Bereich unterhalb der rüber kopierten Zeilen wird leider auch farbig formatiert.
Makro:
Sub Bereiche_kopieren()
'Erst_Bereich_markieren_dann_kopieren_dann_Kopfzeilen_einfügen
'Version 2 mit Formatierung
Dim wksSource, wksDestination As Worksheet
'Quelldatenblatt festlegen
Set wksSource = ThisWorkbook.ActiveSheet
'Markierung kopieren
Selection.Copy
'Zieldatenblatt einfügen und festlegen
Set wksDestination = ThisWorkbook.Worksheets.Add(after:=Sheets(Sheets.Count))
'Einfügen
With wksDestination
.Paste
'Kopfbereich auf Quelldatenblatt kopieren
With wksSource
Range(.Cells(1, 1), .Cells(7, 16)).Copy
End With
'Kopfbereich auf Zieldatenblatt einfügen und Zeilen nach unten verschieben
wksDestination.Cells(1, 1).Insert Shift:=xlShiftDown
'wechseln auf Tabellenblatt Source
With wksSource
.Cells.Copy
wksDestination.Cells.PasteSpecial Paste:=xlPasteFormats
'Zwischenablage löschen
Application.CutCopyMode = False
End With
End With
End Sub
Sollte eigentlich nur die Formatierung der rüber kopierten Zellen übertragen.
Für einen Support bin ich dankbar.
Viele Grüße Kalle