'Oefening 8.5.17 A
Sub hoogteProfielA_ex21A()
    Dim huidigeSelectie As Range
    Set huidigeSelectie = Selection
    Dim hoogsteStijgingsgraad As Double
    hoogsteStijgingsgraad = huidigeSelectie.Cells(1, 0).Value 'neem eerst cel als ref
    Dim temp As Double
    Dim teller As Integer
    For teller = 2 To huidigeSelectie.Cells.Count
        temp = (huidigeSelectie.Cells(teller) - huidigeSelectie.Cells(teller - 1)) / 1 '(i-(i-1))/1 (per km)
        If temp > hoogsteStijgingsgraad Then
            hoogsteStijgingsgraad = temp
            huidigeSelectie.Cells(teller).Select
        End If
    Next teller
    MsgBox ("hoogsteStijgingsgraad = " & hoogsteStijgingsgraad)
    ActiveCell.Interior.Color = RGB(255, 50, 50)
    ActiveCell.Offset(-1, 0).Interior.Color = RGB(100, 255, 10)
End Sub

'Oefening 8.5.17 B
Sub hoogteProfielB_ex21B()
    Dim huidigeSelectie As Range
    Set huidigeSelectie = Selection
    Dim hoogsteStijgingsgraad As Double
    Dim dh As Double 'delta hoogte
    Dim dx As Double 'delta afstand
    Dim teller As Integer 'lusTeller
    'Indien niet bij waarde: afstand 0m en hoogte 0m werd begonnen: (zet teller = 1 anders teller = 2)
    hoogsteStijgingsgraad = huidigeSelectie.Cells(1, 2).Value / huidigeSelectie.Cells(1, 1).Value
    huidigeSelectie.Cells(1, 1).Select
    For teller = 2 To huidigeSelectie.Cells.Rows.Count
        dx = huidigeSelectie.Cells(teller, 1).Value - huidigeSelectie.Cells(teller - 1, 1).Value
        dh = huidigeSelectie.Cells(teller, 2).Value - huidigeSelectie.Cells(teller - 1, 2).Value
        If (dh / dx) > hoogsteStijgingsgraad Then
            hoogsteStijgingsgraad = (dh / dx)
            huidigeSelectie.Cells(teller, 1).Select
        End If
    Next teller
    MsgBox ("hoogsteStijgingsgraad = " & hoogsteStijgingsgraad)
    ActiveCell.Interior.Color = RGB(255, 50, 50)
    ActiveCell.Offset(-1, 0).Interior.Color = RGB(100, 255, 10)
End Sub