Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
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
Inhaltsverzeichnis

CountIf

CountIf
17.03.2020 10:45:24
Tim
Hallo zusammen,
ich steh vor folgendem Problem und habe keine richtige Lösung.
Ich habe in der Spalte Q einen Wert den ich suche, der gesuchte Wert kommt mehrfach vor und hat in Spalte L zu jedem Eintrag eine Menge. Ich benötige als Ergebnis die Gesamtmenge aus Spalte L zu dem gesuchten Wert.
Meine Idee ist es via CountIf zu zählen, jedoch fehlt mir die Überleitung zu Spalte L, wer kann _ mir dabei helfen oder kennt eine Alternative?

Sub test()
Dim Wert As Long
Dim anzahl As Long
Wert = "20896040-40-3333"
anzahl = WorksheetFunction.CountIf(Range("Q:Q"), Wert)
MsgBox anzahl
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: und warum nicht einfach SUMMEWENN()? owT
17.03.2020 10:54:25
neopa
Gruß Werner
.. , - ...
AW: CountIf
17.03.2020 10:57:54
Regina
Hi,
das sollte so passen:
Sub test()
Dim Wert As Long
Dim anzahl As Long
Dim lng_menge As Long
Dim lng_zeile As Long
Wert = "20896040-40-3333"
lng_zeile = 2  ' Wenn die Werte in Zeile 2 beginnen
With Worksheets("Tabelle1")  ' Name ggf. anpassen
For lng_zeile = 2 To .Cells(Rows.Count, 17).End(xlUp).Row
If .Cells(lng_zeile, 17) = Wert Then
lng_menge = lng_menge + .Cells(lng_zeile, 12)
End If
Next
End With
MsgBox lng_menge
End Sub
Gruß Regina
AW: CountIf
17.03.2020 10:58:27
UweD
Hallo
countif ist ZÄHLENWENN
du brauchst SUMMEWENN
anzahl = WorksheetFunction.Sumif(Range("Q:Q"), Wert,Range("L:L"))
LG UweD
Anzeige
AW: CountIf
17.03.2020 11:04:02
UweD
Hi
vorab: "Dim WERT as long" geht bei der Vorgabe nicht
kann nur String sein.

Dim Wert As String
Dim anzahl As Long
Wert = "20896040-40-3333"
anzahl = WorksheetFunction.SumIf(Range("Q:Q"), Wert, Range("L:L"))
Gruß
AW: CountIf
17.03.2020 13:10:08
Tim
Hallo Uwe,
habe es nach deiner Vorgabe eingebaut, funktioniert wie gewünscht!
Vielen Dank an alle!!
Danke für die Rückmeldung. (owT)
17.03.2020 13:13:04
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige