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

Spalte D in Blöcken summieren

Forumthread: Spalte D in Blöcken summieren

Spalte D in Blöcken summieren
28.09.2018 19:28:03
KlausF
Moin,
https://www.herber.de/bbs/user/124289.xlsb
Ich möchte gerne Spalte D in Blöcken summieren in Abhängigkeit von Zahlen in Spalte B.
Hat jemand einen Tipp für mich? Gerne auch mit Hilfsspalte.
Gruß
Klaus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
in F4 =WENN(B4>0;SUMME(D$4:D4)-SUMME(F$3:F3);"")
28.09.2018 19:47:27
WF
und runterkopieren
WF
Danke WF
28.09.2018 20:11:40
KlausF
Hi WF,
-SUMME(F$3:F3)
das war es, darauf bin ich einfach nicht gekommen.
Danke
Klaus
AW: Spalte D in Blöcken summieren
28.09.2018 20:02:04
Ludwig
Hi Klaus,
eine etwas umständliche Lösung, aber es funktioniert:
Sub summieren()
Dim x As Integer
Dim Zähler As Integer
With Sheets("Blatt1")
For Zähler = 4 To .Cells(Rows.Count, 2).End(xlUp).Row
x = .Cells(Zähler, 2).Value
If x = 1 Then
y = y + .Cells(Zähler, 4)
End If
If x = 2 Then
y = y + .Cells(Zähler, 4)
End If
If x = 3 Then
y = y + .Cells(Zähler, 4)
End If
If x = 4 Then
y = y + .Cells(Zähler, 4)
End If
If x = 5 Then
y = y + .Cells(Zähler, 4)
End If
If x = 6 Then
y = y + .Cells(Zähler, 4)
End If
If x = 7 Then
y = y + .Cells(Zähler, 4)
End If
Next Zähler
.Cells(35, 4).Value = y
End With
End Sub

Anzeige
AW: Spalte D in Blöcken summieren
28.09.2018 20:13:15
KlausF
Hallo Ludwig,
danke auch Dir. Gesucht war allerdings eine Formellösung.
Gruß
Klaus
;

Beliebteste Forumthreads (12 Monate)

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