{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Performance-Test","Tabelle2","Tabelle3"],"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":"Performance-Test","index":0,"n_rows":1,"n_cols":6,"rows_kept":1,"cut":false,"hidden":false,"merged":[]}
[null,null,null,"Sub performSelectTest()\n\n    Dim i As Integer\n    For i = 1 To 5000\n        Sheets(1).Cells(i, 1).Select\n        ActiveCell.FormulaR1C1 = \"<Ich bin ein Platzhalter>\"\n    Next i\n\nEnd Sub","Sub performSelectTest2()\n    Application.ScreenUpdating = False\n    Dim i As Integer\n    For i = 1 To 5000\n        Sheets(1).Cells(i, 2).Select\n        ActiveCell.FormulaR1C1 = \"<Ich bin ein Platzhalter>\"\n    Next i\n    Application.ScreenUpdating = True\nEnd Sub","Sub performNonSelectTest()\n\n    Dim i As Integer\n    For i = 1 To 5000\n\n        Sheets(1).Cells(i, 3).FormulaR1C1 = \"<Ich bin ein Platzhalter>\"\n    Next i\n\nEnd Sub"]

{"sheet":"Tabelle2","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"Tabelle3","index":2,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}