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.