VBA-
28.04.2022 20:49:16
Mani
Vielleicht kann mir jemand helfen, denn mittlerweile bin ich schon ein wenig verzweifelt.
Der u.a. Code soll ein entsprechendes Arbeitsblatt in bereits vorhandene Excel Dateien einfügen. (Dateien haben den gleichen Dateityp, aber jeweils einen anderen Dateinamen)
Für das neue Arbeitsblatt gibt es eine eigene Vorlage/ Excel Sheet. (0_Basis_yxz.xls)
Wobei ich von dieser Vorlage (0_Basis_yxz.xls) nur ein bestimmtes Arbeitsblatt (2023B) verwende UND auch nur einen bestimmten Bereich davon. (A12:AF35)
Der Code funktioniert durchgehend, BIS auf das EINGEFÜGTE.
Die Daten werden zwar von der Vorlage übernommen und auch in die richtige Arbeitsmappe sowie Arbeitsblatt eingefügt, ABER leider ohne der richtigen Formatierung und den Kommentaren.
Vielen Dank für eure Tipps.
Gruß, Mani
Sub Arbeitsblatt_einfügen ()
- Hier ist bereits eine Arbeitsmappe geöffnet und vorweg wurden in dieser aktiven Arbeitsmappe einige
Dinge geändert, aber diesen Code habe ich hier nicht angeführt, da er für meine Frage nicht relevant ist.
Workbooks.Open Filename:="C:\Users\ 0_Basis_yxz.xlsx"
Worksheets("2023B").Range("A12:AF35").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks("0_Basis_yxz.xls ").Close savechanges:=False
ActiveWorkbook.Worksheets("2023").Range("A12:AF35").Select
ActiveSheet.Paste
ActiveWorkbook.Save
End Sub
Anzeige