Sub male1x1()
    Dim ergebnis As Integer
    Dim i As Integer
    Dim j As Integer

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