Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Absolute Werte addieren mit VBA

Forumthread: Absolute Werte addieren mit VBA

Absolute Werte addieren mit VBA
06.02.2009 21:30:35
Peter
Guten Abend
Mit der Formel
=SUMMENPRODUKT(ABS(BenannterBereich))
ermittle ich den absoluten Wert aller Zahlen im Bereich "BenannterBereich".
Leider lässt sich diese Formel in VBA mit WorksheetFunction. nicht verwenden.
Wer kennt einen alternativen Lösungsansatz?
Danke für eine Antwort.
Gruss, Peter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Absolute Werte addieren mit VBA
06.02.2009 21:38:37
Daniel
Hi

dim Arr, a
dim Ergebnis as Double
Arr = Range("BeannterBereich").value
for each a in Arr
if isnumeric(a)  then Ergebnis = Ergebnis + ABS(a)
next
Msgbox "Absolutsumme: " & Ergebnis
erase Arr


Gruß, Daniel

AW: Absolute Werte addieren mit VBA
06.02.2009 21:41:11
Josef
Hallo Peter,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ABS_Sum()
    
    Dim rng As Range
    Set rng = Range("Bereich")
    
    MsgBox Evaluate("Sumproduct(aBS(" & rng.Address & "))")
    'oder
    MsgBox Evaluate("Sum(aBS(" & rng.Address & "))")
    
    Set rng = Nothing
End Sub
Gruß Sepp

Anzeige
Oder einfach mutig...
06.02.2009 21:57:00
Jürgen
evaluate("SUMPRODUCT(ABS(Bereich))")
Herzlichen Gruß
Jürgen
MsgBox [SUMPRODUCT(ABS(myBereich))] - (owT)
07.02.2009 02:08:22
Erich
(owT):=ohne weiteren Text
AW: Absolute Werte addieren mit VBA
07.02.2009 10:30:00
Peter
Hallo zusammen
Vielen Dank für die Antworten. Ich habe alle ausgetestet - sie funktionieren einwandfrei.
Gruss, Peter
Anzeige
;

Forumthreads zu verwandten Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Summewenn und weitere Bedingungen
Marika

Hallo,
ist es möglich die Funktion Summewenn mit weiteren Bedingungen zu verknüpfen?
Zum Beispiel das auch ein Datum mit berücksichtigt werden kann.
In der folgenden Datei ist ein Beispiel hinterlegt. Die obere Tabelle soll als Basistabelle dienen und in der unteren Tabelle sollen...
26.09.2008 10:23:00
Thread-ID: 1012531
5 Beiträge
Anzeige
Werte zählen mit Bedingung
Hugo

Hallo,
in Spalte K sollen die in Spalte H aufeinderfolgenden Werte unter Bedingung gezählt werden. Habe händisch eingetragen wie gezählt werden soll. Auch ein kommentar beschreibt wie ich mir denken könnte wie es zu definieren ist. Andere Ideen sind natürlich willkommen.
Danke und Grus...
02.10.2008 18:53:00
Thread-ID: 1013949
4 Beiträge
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Zählenwenn und Summewenn - 2 Bedingungen
Susi

Hallo liebe Excelfreunde,
in der beiliegenden Datei
https://www.herber.de/bbs/user/58105.xls
habe ich eine kleine Beispieltabelle eingefügt, in der in der Spalte F mit der Formel (=WENN(ZÄHLENWENN(B2:B8046;B2)größer*1;"";SUMMEWENN(B:B;B2;D:D))) jeweils die Summe der Spalte D gebild...
06.01.2009 10:13:45
Thread-ID: 1037162
3 Beiträge
Anzeige
Kriterien bei Summewenn mit 2 Bedingungen
Hendryk

Hallo,
hab eine SummeWenn-Formel mit 2 Kriterien wie folgt (als Array-Formel, finde nur das runde-Klammer-auf-nicht auf der Tastatur...) eingegeben:
=SUMME(WENN((Umsatz_Monat_actual!A1:A60000="400400");WENN(Umsatz_Monat_actual!F1:F60000="7127107-04"; Umsatz_Monat_actual!O1:O60000))...
11.03.2009 16:58:32
Thread-ID: 1059201
4 Beiträge
Summe wenn mit Bedingungen geht nicht
Andreas

Hallo,
ich habe folgendes Problem. Es existieren 2 Tabellenblätter. Auf einem der Tabellenblätter findet eine Art Auswertung statt. Das Haupttabellenblatt hat 12 benutzte Spalten, von denen ich nun Spalte B und F auf eine Übereinstimmung abprüfen will. Dazu habe ich auch ein Beispiel gefun...
25.03.2009 15:30:11
Thread-ID: 1063848
5 Beiträge
Summe wenn Bedingung erfüllt
Roger

Hallo zusammen
Ich möchte gerne in der Zelle E1 die Summe der Spalte P. Aber nur die Werte bei welche in der Spalte G in der gleichen Zeile ein "ja" steht. Die Werte in welchen in der Spalte G ein "nein" oder nichts steht, sollen nicht zusammengezählt werden. Ich könnte das mit einer zusätz...
27.04.2009 17:29:02
Thread-ID: 1071449
3 Beiträge
Anzeige
Summewenn mehrer Bedingungen versch. Blätter
Aquestor

Hallo zusammen,
ich habe folgendes Problem:
Ich möchte im Datenblatt Whiteboard in Zelle C11 überprüfen, ob in den Datenblättern Ma_1....Ma_18 Zelle C11 ein Wert steht. Steht in einer der 18 Zellen die überprüft werden ein Wert, so sollen Ma1!C11+Ma_2!C11+.....Ma_18!C11 summiert werden....
26.05.2009 11:23:28
Thread-ID: 1077310
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige