xlsvbah2.1

Attribute VB_Name = "mod1Oefeningen"

Sub Oefening1()

'   Absoluut

    Range("C5").Select
    ActiveCell.FormulaR1C1 = "Hello World"

End Sub

Sub Oefening2()

'   Relatief
    
    ActiveCell.Offset(4, 1).Value = "Hello World"
    
End Sub

Sub Oefening3()

'   Absoluut en relatief

    Range("C5").Select
    ActiveCell.FormulaR1C1 = "Hello"
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "World"
    
End Sub