Hallo liebes Forum,
im Rahmen eine Übungsaufgabe soll ich folgende Fragestellung durch VBA lösen: Die Summe von Werten eines (variablen) Zellbereichs bilden, wobei Zahlen größer als 28€ mit dem Mehrwertsteuersatz von 19% beaufschlagt werden.
Folgend findet ihr meinen bereits geschriebenen Teil, welcher aktuell die Summe eines vom User ausgewählten Bereichs bildet. Leider fehlt mir aktuell vollkommen der Ansatz, wie ich die Beaufschlagung in VBA zunächst mit dem Wert 28 verknüpfe und dann noch zusätzlich in die Summe einfließen lasse.
Über eure Hilfe wäre ich euch sehr dankbar!
Liebe Grüße
Sub Selection_Summme()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
Summe = Summe + Zelle.Value
End If
Next Zelle
MsgBox "Das Ergebnis lautet: " & Summe
End Sub
|