Ich bin noch nicht am Ziel.
Mit diesem Code:
Sub Makro_EinzelKopie_2() 'Pos. 4 der Einzelkomponenten
Range("B17:F20").Select
Selection.Copy
Range("A1").Select
End Sub
kopiere ich den Bereich. Funktioniert so weit ausreichend gut. Das mache ich 5 mal für verschiedene Bereiche. Alle Bereiche stehen untereinander.
Mir fällt aber auf, wenn ich den ersten Bereich kopiere, dann kann ich die ganzen Zellen samt Formatierung in Word eintragen.
Der nächste Bereich wird auch übertragen, aber die Überschrift ist nicht mehr fett und unten, in der letzten Zeile fehlt ein Teil vom Zellenrahmen.
Kann der Code optimiert werden, damit die Formatierung komplett übertragen wird?
Vielen Dank für die Bemühungen. :-)