{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Tabelle1"],"not_rendered":{"charts":0,"images":2,"macros":1,"external_links":0,"defined_names":0,"comments":1,"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":44,"n_cols":11,"rows_kept":44,"cut":false,"hidden":false,"merged":[]}
[2024]
["       Klick für","Mit Klick auf Label1 (Jahr), wird in Textbox1 das aktuelle Jahr angezeigt.",null,null,null,null,null,null,"Neujahr",{"$f":"DATEVALUE(\"01.01.\"&A1)","v":"2024-01-01"},"Datwert"]
["Userform1","Gleichzeitig soll dann In Textbox2 (Ostersonntag), das Ostersonntagsdatum",null,null,null,null,null,null,"Karfreitag",{"$f":"DATE(A1,3,1)+MOD((255-11*MOD(A1,19)-21),30)+21+(MOD((255-11*MOD(A1,19)-21),30) + 21>48)+6-MOD(A1+INT(A1/4)+MOD((255- 11*MOD(A1,19)- 21),30)+21+(MOD((255-11*MOD(A1,19)-21),30)+21>48)+1,7)-2","v":"2024-03-29"},-2]
[null,"des aktuellen Jahres aus Textbox1 gezeigt werden.",null,null,null,null,null,null,"Ostermontag",{"$f":"DATE(A1,3,1)+MOD((255-11*MOD(A1,19)-21),30)+21+(MOD((255-11*MOD(A1,19)-21),30) + 21>48)+6-MOD(A1+INT(A1/4)+MOD((255- 11*MOD(A1,19)- 21),30)+21+(MOD((255-11*MOD(A1,19)-21),30)+21>48)+1,7)+1","v":"2024-04-01"},"+1"]
[null,null,null,null,null,null,null,null,"Tag der Arbeit",{"$f":"DATEVALUE(\"01.05.\"&A1)","v":"2024-05-01"},"Datwert"]
[null,"Die Formel in Userform1, für die Ostersonntagsformel, holt sich das Jahr aus der",null,null,null,null,null,null,"Christi Himmelfahrt",{"$f":"DATE(A1,3,1)+MOD((255-11*MOD(A1,19)-21),30)+21+(MOD((255-11*MOD(A1,19)-21),30) + 21>48)+6-MOD(A1+INT(A1/4)+MOD((255- 11*MOD(A1,19)- 21),30)+21+(MOD((255-11*MOD(A1,19)-21),30)+21>48)+1,7)+39","v":"2024-05-09"},"+39"]
[null,"Tabelle, aus A1 (in VBA Formel : R1C1 …).",null,null,null,null,null,null,"Pfingstmontag",{"$f":"DATE(A1,3,1)+MOD((255-11*MOD(A1,19)-21),30)+21+(MOD((255-11*MOD(A1,19)-21),30) + 21>48)+6-MOD(A1+INT(A1/4)+MOD((255- 11*MOD(A1,19)- 21),30)+21+(MOD((255-11*MOD(A1,19)-21),30)+21>48)+1,7)+50","v":"2024-05-20"},"+50"]
[null,null,null,null,null,null,null,null,"Fronleichnam",{"$f":"DATE(A1,3,1)+MOD((255-11*MOD(A1,19)-21),30)+21+(MOD((255-11*MOD(A1,19)-21),30) + 21>48)+6-MOD(A1+INT(A1/4)+MOD((255- 11*MOD(A1,19)- 21),30)+21+(MOD((255-11*MOD(A1,19)-21),30)+21>48)+1,7)+60","v":"2024-05-30"},"+60"]
[null,"Wie muss der Code sein, dass das Ostersonntagsdatum aus der Jahreszahl",null,null,null,null,null,null,"Tag der Deutschen Einheit",{"$f":"DATEVALUE(\"03.10.\"&A1)","v":"2024-10-03"},"Datwert"]
[null,"aus Textbox1 in Textbox2 erscheint?",null,null,null,null,null,null,"Reformationstag Nur 2017!",{"$f":"DATEVALUE(\"31.10.2017\")","v":"2017-10-31"},"Datwert"]
[null,null,null,null,"'Herber: von Sepp am 11.06.2017 18:38:45",null,null,null,"Allerheiligen",{"$f":"DATEVALUE(\"01.11.\"&A1)","v":"2024-11-01"},"Datwert"]
[null,null,null,null,null,null,null,null,"1. Weihnachtsfeiertag",{"$f":"DATEVALUE(\"25.12.\"&A1)","v":"2024-12-25"},"Datwert"]
[null,null,null,null,null,null,null,null,"2. Weihnachtsfeiertag",{"$f":"DATEVALUE(\"26.12.\"&A1)","v":"2024-12-26"},"Datwert"]
[]
[null,null,null,null,null,null,null,null,"Statt DATWERT. Formel von: Herber - RPP63 (Ralf) am 12.06.2017 09:04:21"]
[]
[null,null,null,null,null,null,null,null,"TextBox6 = Format(CDate(\"01.05.\" & TextBox1), \"ddd dd.mm.yyyy\") 'Tag der Arbeit"]
[]
[null,null,null,null,null,null,null,null,"Hi"]
[null,null,null,null,null,null,null,null,"TextBoxen können keine Formeln."]
["   Me.Label10.Visible = False",null,null,null,null,null,null,null,"du kannst da nur einen Text reinschreiben."]
["   Me.Label9.Visible = True",null,null,null,null,null,null,null,"um die Textbox5 zu befüllen, brauchst du diesen Code (Annahme: in Textbox1 steht das Jahr mit 4 Ziffern)"]
[]
["     Me.Image10.Visible = False        'roter Button aus",null,null,null,null,null,null,null,"Textbox5.Text = \"01.05.\" & Textbox1.Text"]
["        Me.Image11.Visible = True      'grüner Button an"]
[" Application.Speech.Speak Label8.Caption & \"aus\" 'Textansage",null,null,null,null,null,null,null,"diesen Code musst du in diesen Events der Userform ausführen:"]
[null,null,null,null,null,null,null,null,"1. im Change-Event der Textbox1"]
["Sub Image1_Click()",null,null,null,null,null,null,null,"2. im Initialize-Event der Userform."]
[" Application.Visible = True 'Excel einblenden"]
["Unload Me",null,null,null,null,null,null,null,"oder du führst diesen Code bei dem Klick aus, bei dem du auch die Textbox1 befüllst:"]
["End Sub"]
[null,null,null,null,null,null,null,null,"Textbox1.Text = \"2017\""]
["Code in Modul1",null,null,"Code in MxBild (Image1)",null,null,null,null," Textbox5.Text = \"01.05.\" & Textbox1.Text"]
["Sub UserForm()",null,null,"Sub Image1_Click()",null,null,null,null,"Gruß Daniel"]
[" Application.Visible = False 'Excel ausblenden",null,null,"Unload Me 'Userform 1 mit Bild (Image1) beenden"]
["   UserForm1.Show",null,null,"End Sub"]
["End Sub"]
[null,null,null,"Sub ExcelAusblenden()"]
[null,null,null,"Application.Visible = False 'Excel ausblenden"]
[null,null,null,"End Sub"]
[]
[null,null,null,"Sub ExcelEinblenden() 'In Bild"]
[null,null,null,"Application.Visible = True 'Excel einblenden"]
[null,null,null,"End Sub"]