Sub einMalEins()

    Dim i As Integer
    Dim j As Integer
    Dim ergebnis As Integer


    For i = 1 To 10

        For j = 1 To 10
            ergebnis = i * j
            Debug.Print i & " mal " & j & " =  " & ergebnis
        Next j

        Debug.Print "----------------"
    Next i

End Sub