Sub Schaltfläche1_Klicken()

    Sheets("Verkauf").Select

    Dim produktgruppe As Integer
    Dim produkt As Integer
    Dim preis As Integer
    Dim stueckzahl As Integer
    Dim kunde As Integer
    Dim preisinkl As Integer

    produktgruppe = Range("Produktgruppe").Column
    produkt = Range("Produkt").Column
    preis = Range("Preis").Column
    stueckzahl = Range("Stückzahl").Column
    kunde = Range("Kunde").Column
    preisinkl = Range("Preisinkl").Column


    ' Tabellenende
    Dim ende As Integer
    ende = IIf(IsEmpty(Cells(Rows.Count, produkt)), Cells(Rows.Count, produkt).End(xlUp).Row, Rows.Count)


    ' für jede Zeile in der Tabelle
    For i = 2 To ende

        ' Preis*Stückzahl
        Dim summe As Long
        summe = Cells(i, preis) * Cells(i, stueckzahl)


        Dim preisInklusiveRabatt As Long
        ' Sonderrabatt für E-Bikes oder normaler Rabatt
        preisInklusiveRabatt = IIf(Cells(i, produktgruppe) = "E-Bike", sonderRabattBestimmen(summe), preisInklRabattBestimmen(summe))


        ' Verkauf wieder auswählen, da sonst in Rabatt eingetragen wird
        Sheets("Verkauf").Select

        Cells(i, preisinkl) = preisInklusiveRabatt

    Next i

End Sub


Function preisInklRabattBestimmen(betrag As Long) As Long

    Sheets("Rabatt").Select

    Dim von As Integer
    Dim bis As Integer
    Dim rabatt As Integer
    rabatt = Range("Rabatt").Column
    von = Range("von").Column
    bis = Range("bis").Column

    ' Tabellenende
    Dim ende As Integer
    ende = IIf(IsEmpty(Cells(Rows.Count, von)), Cells(Rows.Count, von).End(xlUp).Row, Rows.Count)


    For i = 2 To ende

        Dim vonBetrag As Long
        Dim bisBetrag As Long
        vonBetrag = Cells(i, von)
        bisBetrag = Cells(i, bis)

        If (betrag >= vonBetrag And betrag <= bisBetrag) Then

            preisInklRabattBestimmen = betrag - (betrag * Cells(i, rabatt))

        End If

    Next i

End Function

Function sonderRabattBestimmen(betrag As Long) As Long

    Sheets("Rabatt").Select

    ' Rückgabewert
    sonderRabattBestimmen = betrag - (betrag * Cells(2, 6))

End Function