Hallo liebes Forum,
im Rahmen einer Aufgabe soll ich eine Funktion in Excel VBA erstellen, welche Folgendes bewirkt:
Summe der Werte eines Zellbereichs, wobei Zahlen größer als 28€ mit dem Mehrwertsteuersatz 19% beaufschlagt werden. Wichtig ist hierbei, dass auf jeden Fall "Function" genutzt wird und der Zellbereich variabel wählbar ist. Die Nutzung soll analog zur Bedienung der Funktion =SUMME in Excel erfolgen. Folgenden Code habe ich aktuell vorliegen. Dieser gibt mir bei der Benutzung nur #WERT aus, den Fehler kann ich aber nicht finden (mangels ausreichender VBA-Kenntnisse).
Function ImportSumme() As Double
Dim Zelle As Range, Faktor As Double, Summe As Double
For Each Zelle In Selection
If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
Faktor = IIf(Zelle.Value > 28, 1.19, 1)
Summe = Summe + Zelle.Value * Faktor
End If
Next Zelle
End Function
Über Hilfe wäre ich sehr dankbar!
Liebe Grüße
|