xlsvbah6.1

Attribute VB_Name = "mod1Oefeningen"

Sub berekenOmtrek()

'   Oefening 1
    
    Range("C2").Value = 2 * Range("A2").Value + 2 * Range("B2").Value & " m2"

End Sub

Sub berekenDollar()
    
'   Oefening 2
    
    Range("F2").Value = Range("E2").Value * 1.16
    Range("F2").Style = "Currency"

End Sub

Sub berekenTijd()

'   Oefening 3

    Range("J2").Value = Range("I2").Value - Range("H2").Value
    Range("J2").NumberFormat = "h:mm"

End Sub