xlsvbah12.1

Attribute VB_Name = "mod1Oefeningen"

Option Explicit

Sub Oefening1()

    Dim Werkboek As Workbook
    Dim Werkblad As Worksheet
    Dim Bereik As Range
    
    Set Werkboek = ActiveWorkbook
    Set Werkblad = Werkboek.Sheets("Oefeningen")
    Set Bereik = Werkblad.UsedRange
    
    Bereik.Select

End Sub

Sub Oefening2()

    Dim Werkboek As Workbook
    Dim Werkblad As Worksheet
    Dim Bereik As Range
    
    Set Werkboek = ActiveWorkbook
    Set Werkblad = Werkboek.Sheets("Oefeningen")
    Set Bereik = Werkblad.Range("A1").CurrentRegion
    
    Bereik.Select

End Sub

Sub Oefening3()

    Dim wbWerkboek As Workbook
    Dim wsWerkblad As Worksheet
    Dim rngBereikA As Range
    Dim rngBereikB As Range
    
    Set wbWerkboek = ActiveWorkbook
    Set wsWerkblad = wbWerkboek.Sheets("Oefeningen")
    Set rngBereikA = wsWerkblad.Range("A1").CurrentRegion
    Set rngBereikB = wsWerkblad.Range("F9").CurrentRegion
    
    Union(rngBereikA, rngBereikB).Select

End Sub


Download hier het bestand.