Thema Datum  Von Nutzer Rating
Antwort
17.12.2020 11:43:49 Tom
Solved
Blau Funktion zur Summierung eines Zellbereichs mit Berücksichtigung der Mwst ab Betrag X
17.12.2020 11:58:57 volti
NotSolved
17.12.2020 12:30:13 Gast84197
NotSolved
17.12.2020 12:40:25 Gast22806
NotSolved
17.12.2020 13:47:48 volti
Solved
17.12.2020 13:57:23 Gast59398
Solved
17.12.2020 14:36:32 Tom
NotSolved
23.12.2020 12:22:20 Dieter
NotSolved
24.12.2020 16:27:40 Tom
Solved
26.12.2020 19:16:11 Dieter
NotSolved
26.12.2020 19:16:13 Dieter
NotSolved
26.12.2020 19:16:13 Dieter
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
17.12.2020 11:58:57
Views:
717
Rating: Antwort:
  Ja
Thema:
Funktion zur Summierung eines Zellbereichs mit Berücksichtigung der Mwst ab Betrag X

Hallo Tom,

 

Du musst der Function den rückzugebenden Wert auch zuweisen.

....

ImportSumme=Summe

End Function

 

Oder Du summierst gleich in der Function-Variablen....Code:

 
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
 
Sub Test()
  Debug.Print ImportSumme()
End Sub

Function ImportSumme() As Double
  Dim Zelle As Range, Faktor As Double

  For Each Zelle In Selection
     If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
        Faktor = IIf(Zelle.Value > 281.191)
        ImportSumme = ImportSumme + Zelle.Value * Faktor
     End If
  Next Zelle
End Function
 
_________
viele Grüße
Karl-Heinz

 


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