Thema Datum  Von Nutzer Rating
Antwort
17.12.2020 11:43:49 Tom
Solved
17.12.2020 11:58:57 volti
NotSolved
17.12.2020 12:30:13 Gast84197
NotSolved
17.12.2020 12:40:25 Gast22806
NotSolved
Rot Funktion zur Summierung eines Zellbereichs mit Berücksichtigung der Mwst ab Betrag X
 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 13:47:48		 Views:
882		 Rating:
     
Antwort:
 Nein
Thema:
Funktion zur Summierung eines Zellbereichs mit Berücksichtigung der Mwst ab Betrag X

Hallo Tom,

das bisherige Makro summiert die von Dir aktuell markierten Zellen. Diese müssen natürlich auch Zahlen enthalten.

Willst Du es als Funktion im Excleblatt einsetzen?

Dann sollten wir das Makro auf eine Bereichsübergabe abändern, Hier werden dann unabhängig von der aktuellen Selektion die Werte aus dem Bereich aufaddiert.

So klappt es bei mir...

Code:

 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18		  
Sub Test()
  Debug.Print ImportSumme(Selection)
  Debug.Print ImportSumme(Range("H7:I10"))
End Sub

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

  For Each Zelle In rBereich
     If Zelle.Value <> "" And IsNumeric(Zelle.Value) Then
        Faktor = IIf(Zelle.Value > 28, 1.19, 1)
        ImportSumme = ImportSumme + Zelle.Value * Faktor
     End If
  Next Zelle
End Function

' in einem Feld
' =Importsumme(H7:I10)
 
_________
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

Thema Datum  Von Nutzer Rating
Antwort
17.12.2020 11:43:49 Tom
Solved
17.12.2020 11:58:57 volti
NotSolved
17.12.2020 12:30:13 Gast84197
NotSolved
17.12.2020 12:40:25 Gast22806
NotSolved
Rot Funktion zur Summierung eines Zellbereichs mit Berücksichtigung der Mwst ab Betrag X
 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