Thema Datum  Von Nutzer Rating
Antwort
Rot Summierung eines Zellbereichs und Beaufschlagung auf Werte, welche Wert X übersteigen
 23.11.2020 15:29:56 Timo
NotSolved
23.11.2020 15:55:29 UweD
Solved
23.11.2020 16:40:51 Timo
NotSolved

Ansicht des Beitrags:
Von:
Timo		 Datum:
23.11.2020 15:29:56		 Views:
978		 Rating:
     
Antwort:
  Ja
Thema:
Summierung eines Zellbereichs und Beaufschlagung auf Werte, welche Wert X übersteigen

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Summierung eines Zellbereichs und Beaufschlagung auf Werte, welche Wert X übersteigen
 23.11.2020 15:29:56 Timo
NotSolved
23.11.2020 15:55:29 UweD
Solved
23.11.2020 16:40:51 Timo
NotSolved