{"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":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":69,"n_cols":13,"rows_kept":69,"cut":false,"hidden":false,"merged":[]}
["Schleifen über Schleifen…"]
[]
[]
[]
[1,2,3,4,5,6,7,8,9,10,null,55,"Do-Schleife mit Ausstieg"]
[null,null,null,null,null,null,null,null,null,null,null,55,"Do-Schleife mit While"]
[null,null,null,null,null,null,null,null,null,null,null,55,"For-Schleife"]
[null,null,"Private Sub CommandButton1_Click()",null,null,null,null,null,null,null,null,55,"While-Schleife"]
[null,null,null,null,null,null,null,null,null,null,null,55,"For-Each-Schleife"]
[null,null,"' For-Schleifen"]
[null,null,"' Do-Schleifen"]
[null,null,"' While-Schleifen"]
[null,null,"' For-Each-Schleifen"]
[]
[null,null,"' Do-Schleife"]
[null,null,"    Dim ergebnis As Integer"]
[null,null,"    Dim zeile As Integer … Dim spalte As Integer"]
[null,null,"    ergebnis = 0"]
[null,null,"    zeile = 5"]
[null,null,"    spalte = 1"]
[null,null,"    ' Do-Schleife, Variante 1"]
[null,null,"    Do"]
[null,null,"        ergebnis = ergebnis + Cells(zeile, spalte)"]
[null,null,"        spalte = spalte + 1"]
[null,null,"        If spalte > 10 Then"]
[null,null,"            Exit Do"]
[null,null,"        End If"]
[null,null,"    Loop"]
[null,null,"    Cells(zeile, spalte + 1) = ergebnis"]
[null,null,"    Cells(zeile, spalte + 2) = \"Do-Schleife mit Ausstieg\""]
[null,null,"    "]
[null,null,"    ' Do-Schleife, Variante 2"]
[null,null,"    ergebnis = 0"]
[null,null,"    spalte = 1"]
[null,null,"    Do While spalte <= 10"]
[null,null,"        ergebnis = ergebnis + Cells(zeile, spalte)"]
[null,null,"        spalte = spalte + 1"]
[null,null,"    Loop"]
[null,null,"    Cells(zeile + 1, spalte + 1) = ergebnis"]
[null,null,"    Cells(zeile + 1, spalte + 2) = \"Do-Schleife mit While\""]
[null,null,"        "]
[null,null,"    ' For-Schleife"]
[null,null,"    ergebnis = 0"]
[null,null,"    For spalte = 1 To 10 Step 1"]
[null,null,"        ergebnis = ergebnis + Cells(zeile, spalte)"]
[null,null,"    Next spalte"]
[null,null,"    Cells(zeile + 2, spalte + 1) = ergebnis"]
[null,null,"    Cells(zeile + 2, spalte + 2) = \"For-Schleife\""]
[null,null,"    "]
[null,null,"    ' While-Schleife"]
[null,null,"    ergebnis = 0"]
[null,null,"    spalte = 1"]
[null,null,"    While spalte <= 10"]
[null,null,"        ergebnis = ergebnis + Cells(zeile, spalte)"]
[null,null,"        spalte = spalte + 1"]
[null,null,"    Wend"]
[null,null,"    Cells(zeile + 3, spalte + 1) = ergebnis"]
[null,null,"    Cells(zeile + 3, spalte + 2) = \"While-Schleife\""]
[null,null,"    "]
[null,null,"    ' For-Each-Schleife"]
[null,null,"    Dim cell As Range"]
[null,null,"    ergebnis = 0"]
[null,null,"    For Each cell In Range(\"$A$5:$J$5\")"]
[null,null,"        ergebnis = ergebnis + cell"]
[null,null,"    Next cell"]
[null,null,"    Cells(zeile + 4, 12) = ergebnis"]
[null,null,"    Cells(zeile + 4, 13) = \"For-Each-Schleife\""]
[null,null,"    "]
[null,null,"End Sub"]