xlsvbah13.3

01Attribute VB_Name = "mod3Antwoorden"
02 
03Option Explicit
04 
05' Opdracht 1: maak een procedure die twee getallen door elkaar deelt. Gebruik het Error object die de volgende fouten afvangt:
06'             a. niet delen door 0
07'             b. niet delen door tekst
08'             c. niet delen door een lege waarde
09 
10Sub Antwoord1()
11 
12    On Error GoTo FoutAfhandelaar
13 
14    Dim Getal1
15    Dim Getal2
16     
17    Getal1 = 10
18    Getal2 = InputBox("Door welk getal wilt u 10 delen?")
19         
20    MsgBox Getal1 / Getal2
21     
22    Exit Sub
23     
24FoutAfhandelaar:
25     
26    Select Case Err.Number
27        Case 11
28            MsgBox "U kunt niet delen door 0!"
29        Case 13
30            If Getal2 = "" Then
31                MsgBox "U heeft niets ingevuld!"
32            Else
33                MsgBox "U heeft een ongeldige waarde ingevuld!"
34            End If
35        Case Else
36            MsgBox "Onbekende fout: " & Err.Description, , Err.Number
37    End Select
38 
39End Sub
40 
41' Opdracht 2: maak opdracht 1 opnieuw zonder het Error object
42 
43Sub Antwoord2()
44 
45    Dim Getal1
46    Dim Getal2
47     
48    Getal1 = 10
49     
50    Do
51        Getal2 = InputBox("Door welk getal wilt u 10 delen?")
52    Loop Until IsNumeric(Getal2)
53     
54    MsgBox Getal1 / Getal2
55 
56End Sub
57 
58' Opdracht 3: maak een procedure die het het werkblad "Nieuw werkblad" activeert en wanneer deze niet bestaat aanmaakt m.b.v. het Error object
59 
60Sub Antwoord3()
61 
62    On Error GoTo FoutenAfhandelaar
63 
64    Worksheets("Nieuw werkblad").Activate
65     
66    Exit Sub
67     
68FoutenAfhandelaar:
69 
70    Select Case Err.Number
71        Case 9
72            Worksheets.Add.Name = "Nieuw werkblad"
73            Resume
74    End Select
75 
76End Sub
77 
78' Opdracht 4: maak opdracht 3 opnieuw zonder het Error object
79 
80Sub Antwoord4()
81 
82    Dim w As Worksheet
83     
84    For Each w In ActiveWorkbook.Sheets
85        If w.Name = "Nieuw werkblad" Then
86            w.Activate
87            Exit For
88        End If
89    Next w
90     
91    If w Is Nothing Then
92        Set w = Worksheets.Add
93        w.Name = "Nieuw werkblad"
94    End If
95 
96End Sub

Download hier het bestand.