---

Private Sub berechneGesamtUndDurchschnittsprovision_Click()
    Const VERKAUFSBETRAGSPALTE As Integer = 2
    Const PROVISIONSSPALTE As Integer = 3
    Const ERSTE_ZEILE_MIT_VERKAUFSBETRAG As Integer = 4
    Dim gesamtprovision As Double
    Dim gesamtVerkaufsbetrag As Double
    Dim zeilenzaehler As Integer
    Dim anzahlVerkaeufe As Integer
    Dim durchschnittsprovision As Double
    gesamtprovision = 0
    gesamtprovision = 0
    zeilenzaehler = ERSTE_ZEILE_MIT_VERKAUFSBETRAG
    Do While Not IsEmpty(Cells(zeilenzaehler, PROVISIONSSPALTE))
        gesamtprovision = gesamtprovision + Cells(zeilenzaehler, PROVISIONSSPALTE)
        gesamtVerkaufsbetrag = gesamtVerkaufsbetrag + Cells(zeilenzaehler, VERKAUFSBETRAGSPALTE)
        zeilenzaehler = zeilenzaehler + 1
    Loop
    anzahlVerkaeufe = zeilenzaehler - ERSTE_ZEILE_MIT_VERKAUFSBETRAG
    If anzahlVerkaeufe = 0 Then
        MsgBox ("Noch kein Verkauf")
        Exit Sub
    End If
    durchschnittsprovision = gesamtprovision / anzahlVerkaeufe
    Sheets(2).Cells(1, 1) = "Anzahl Verk\'a8aufe"
    Sheets(2).Cells(1, 2) = "Gesamtverkaufsbetrag"
    Sheets(2).Cells(1, 3) = "Gesamtprovision"
    Sheets(2).Cells(1, 4) = "Durchschnittliche Provision"
    Sheets(2).Cells(2, 1) = anzahlVerkaeufe
    Sheets(2).Cells(2, 2) = gesamtVerkaufsbetrag
    Sheets(2).Cells(2, 3) = gesamtprovision
    Sheets(2).Cells(2, 4) = durchschnittsprovision
End Sub

---