Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summieren / Sortieren

Summieren / Sortieren
21.03.2003 17:54:25
Christoph

Hallo Excel User

Ich möchte die Zahlen in Spalte A Summieren allerdings nur dann
wenn der Wert in der zugehörigen Spalte B = 1 ist.

Wie lautet der zugehörige VBA Code

Gruss Christoph

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

Betreff
Datum
Anwender
Anzeige
Re: Summieren / Sortieren
21.03.2003 17:57:30
MikeS

Hi Christoph,

=SUMMEWENN(B1:B5;1;A1:A5)

Ciao MikeS

Re: Summieren / Sortieren
21.03.2003 18:02:38
Knut

Option Explicit
Sub summiere()
Dim S As Double, Z As Long
Z = 1
While Cells(Z, 1) <> ""
If Cells(Z, 2) = 1 Then
S = S + Cells(Z, 1)
End If
Z = Z + 1
Wend
MsgBox S
End Sub
Knut

Re: Summieren / Sortieren
21.03.2003 18:19:18
MikeS

Nochmal mit VBA

Sub Summe()
Dim Startzeile%, Endzeile&, Zähler&, Summe
Startzeile = 1
Endzeile = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False

For Zähler = Startzeile To Endzeile
If Cells(Zähler, 2).Value = 1 Then
Summe = Summe + Cells(Zähler, 1).Value
End If
Next Zähler

Cells(Endzeile + 1, 1).Value = Summe

Application.ScreenUpdating = True
End Sub

Ciao MikeS

Anzeige
SUMMEWENN in VBA = SUMIF
21.03.2003 22:45:25
Boris

Hi Christoph,

Gruß Boris

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige