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
Download hier het bestand.