Summe ermitteln bei ComboBox Change
17.03.2013 10:41:53
Frank
Ich frage in einer Tabelle (Userform) die Anzahl bestimmter Gegenstände ab.Über eine ComboBox suche ich das Material aus und bekomme dann angezeigt, wie oft das Material vorhanden ist.
Dazu verwende ich folgenden Code:
Private Sub ComboBox1_Change()
Dim LD As Range
Dim ergld
Set LD = Worksheets("Inventar").Range("i:i")
ergld = Application.WorksheetFunction.CountIf(LD, "=" & ComboBox1)
lblText_Summe.Caption = ergld
End Sub
Das Material steht in dem Tabellenblatt "Inventar" in der Spalte i:i.
Jetzt würde ich aber gerne die Anzahl mit einbeziehen. Also in Spalte j:j steht die Anzahl.
Wie müsste ich denn meinen Code anpassen damit ich nicht die Anzahl der in Spalte i stehenden Gegenstände angezeigt bekomme, sondern die Summe der in der Combobox ausgewählten Gegenstände.
Einen schönen Sonntag noch
Gruß Frank