{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Tabelle1"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Tabelle1","index":0,"n_rows":55,"n_cols":3,"rows_kept":55,"cut":false,"hidden":false,"merged":[]}
[null,"Pfad:","E:\\Forum Herber Apr 2025\\Anfrage offen"]
[null,"Datei:","176755  Muster.xlsx"]
[]
[]
[]
[]
[]
[]
[null,null,"Sub Makro1()"]
[null,null,"Sheets(\"Deckblatt\").Select"]
[null,null,"Range(\"B7:D7\").ClearContents"]
[]
[null,null,"GoTo aaa"]
[]
[null,null,"Sheets(\"Entwicklungsmaßnahmen\").Select"]
[null,null,"Range(\"A12:B17\").ClearContents"]
[null,null,"Range(\"C12:G17\").ClearContents"]
[null,null,"Range(\"H12:I17\").ClearContents"]
[null,null,"Range(\"J12:K17\").ClearContents"]
[]
[null,null,"Range(\"A24:B29\").Copy"]
[null,null,"Range(\"A12:B17\").PasteSpecial xlPasteValues"]
[null,null,"Range(\"C24:G29\").Copy"]
[null,null,"Range(\"C12:G17\").PasteSpecial xlPasteValues"]
[null,null,"Application.CutCopyMode = False"]
[]
[null,null,"Range(\"A24:B29\").ClearContents"]
[null,null,"Range(\"C24:G29\").ClearContents"]
[null,null,"Range(\"H24:I29\").ClearContents"]
[null,null,"Range(\"J24:K29\").ClearContents"]
[]
[]
[null,null,"aaa:"]
[null,null,"Sheets(\"Erläuterungen\").Select"]
[null,null,"Sheets(\"Schulungsplan\").Visible = True"]
[]
[]
[null,null,"Columns(\"D:G\").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove"]
[null,null,"Range(\"G2\").FormulaR1C1 = \"=Deckblatt!R5C[1]\""]
[null,null,"Range(\"G2\").AutoFill Destination:=Range(\"G2:G7\"), Type:=xlFillDefault"]
[null,null,"Rows(\"1:1\").Delete Shift:=xlUp"]
[]
[null,null,"End"]
[]
[null,null,"Range(\"A1\").Select"]
[null,null,"Sheets(\"Schulungsplan\").Select"]
[null,null,"Sheets(\"Bemerkungen\").Visible = True"]
[null,null,"Columns(\"D:G\").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove"]
[null,null,"Range(\"G2\").FormulaR1C1 = \"=Deckblatt!R5C[1]\""]
[null,null,"Rows(\"1:1\").Delete Shift:=xlUp"]
[null,null,"Sheets(\"Bemerkungen\").Visible = False"]
[null,null,"Sheets(\"Schulungsplan\").Visible = False"]
[null,null,"Sheets(\"Deckblatt\").Select"]
[null,null,"Application.Dialogs(xlDialogSaveAs).Show"]
[null,null,"End Sub"]