Visual Basic Code

Hejsa,

Er igang med at finde personen og alle de informationer om den samme person.

Der er 6 personer i alt, og de registrerer alle deres betalinger i programmet.
I løbet af året har de registreret mange betalinger.
Jeg skal finde en gennemsnits-beløb af en personens betalinger.
Det samme proces skal gøres for alle personer.

Personerne findes i Kolonne A2:A182
Deres betalinger i D2:D182


Har skrevet følgende:

Private Sub home()

        Dim myCell As Range
        Dim Myrange As Range
        Dim totalCells
       
       
        Set Myrange = Worksheets("Betalinger").Range("D2:D182")
 
        totalCells = 0
       
        For Each myCell In Myrange
       
            If myCell.Value = "Anika" Then
            totalCells = totalCells + 1
            End If
           
        Next myCell
       
        Worksheets("Betalinger").Cells(2, 5).Value = totalCells
       
End Sub
       

Den viser antal betalinger for personen, som hedder Anika.
Nu skal jeg finde summen af betalinger i alt. og dividere med den tal, som ligger i række 2, kolonne 5.


hvordan kan det gøres i Visual basic?