{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Tabelle1"],"not_rendered":{"charts":0,"images":1,"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":20,"n_cols":5,"rows_kept":20,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,null,null,null,"Modul1"]
[]
[null,null,null,null,"Sub ZeigeRGBWerteAufCaption()"]
[null,null,null,null,"  Dim r As Integer"]
[null,null,null,null,"  Dim g As Integer"]
[null,null,null,null,"  Dim b As Integer"]
[]
[null,null,null,null,"  ' RGB-Werte der Hintergrundfarbe auslesen"]
[null,null,null,null,"  r = (Tabelle1.CommandButton1.BackColor \\ 65536) Mod 256"]
[null,null,null,null,"  g = (Tabelle1.CommandButton1.BackColor \\ 256) Mod 256"]
[null,null,null,null,"  b = Tabelle1.CommandButton1.BackColor Mod 256"]
[]
[null,null,null,null,"  ' RGB-Werte in der Caption anzeigen"]
[null,null,null,null,"  Tabelle1.CommandButton1.Caption = \"RGB: \" & b & \", \" & g & \", \" & r & vbNewLine & \"Textfarbe: \" & _"]
[null,null,null,null,"    \"(R=\" & (Tabelle1.CommandButton1.ForeColor \\ 65536) Mod 256 & \",\" & _"]
[null,null,null,null,"    \"G=\" & (Tabelle1.CommandButton1.ForeColor \\ 256) Mod 256 & \", \" & _"]
[null,null,null,null,"    \"B=\" & Tabelle1.CommandButton1.ForeColor Mod 256 & \")\""]
[null,null,null,null,"End Sub"]