Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe über VBA

Forumthread: Summe über VBA

Summe über VBA
05.12.2003 12:09:08
Carsten
Hallo,

ich benötige einmal eure Hilfe.

In Spalte "A" stehen verschiedene Zahlen, 1 - 4 und Zahlen zwischen 50 und 59.
In Spalte "B" stehen parallel auch verschiedenen Zahlen.

Ziel:
Wenn in "A4, A5,A..., A5000" die Zahlen 1-4 stehen soll in "A1" die Summe aller Zahlen aus "B4, B5,B..., B5000" gebildet werden.
Wenn in "A4, A5,A..., A5000" die Zahlen 50 - 59 stehen soll in "A2" die Summe aller Zahlen aus "B1, B2,B..., B5000" gebildet werden.
Und in "A3" soll die Summe aller Zahlen aus "B" stehen.

Und zum guten Schluß wäre es noch klasse wenn "B4, B5,B..., B5000" Variablen wären, da das ganze auch für "C", "D" und soweiter gelten soll.

Danke im voraus
Carsten
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Formellösung:
05.12.2003 12:21:59
IngoG
Hallo Carsten,
wenn Du deine Summen immer in die gleiche spalte kopierst also b1,b2,b3
kannst Du folgende Formeln benutzen:

b1: =summenprodukt(($a$4:$a$5000>0)*($a$4:$a$5000<=4)*(b$4:b$5000))

b2: =summenprodukt(($a$4:$a$5000>=50)*($a$4:$a$5000<=59)*(b$4:b$5000))

b3: =summe(b$4:b$5000)

Die formeln kopierst Du dann einfach nach rechts

Gruß Ingo

PS eine Rückmeldung wäre nett...
Anzeige
AW: Formellösung:
05.12.2003 13:41:25
Carsten
Hallo Ingo,

hab die Lösung über VBA gelöst.
Aber trotzdem danke.

Carsten
AW: Summe über VBA
05.12.2003 12:40:43
Mac4
Hallo Carsten,

hier eine VBA - Lösung:


Sub test()
Dim Spalte
Spalte = "B"
[A1].FormulaLocal = "=SUMME(SUMMEWENN(A4:A5000;{1;2;3;4};" & Spalte & "4:" & Spalte & "5000))"
[A2].FormulaLocal = "=SUMME(SUMMEWENN(A4:A5000;{50;51;52;53;54;55;56;57;58;59};" & Spalte & "4:" & Spalte & "5000))"
[A3] = WorksheetFunction.Sum(Range("B:B"))
End Sub


Marc
Anzeige
AW: Summe über VBA
05.12.2003 13:36:57
Carsten
Danke.
Hat super geklappt!

Carsten
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige