hier würde ich das folgende Makro als UDF (user defined function) nutzen. Es wird in ein allgemeines Modul kopiert und kann dann wie jede Excelfunktion in einer Formel genutzt werden. Siehe Anlage.
Code:
Public Function GleicheStoffe(rngListe As Range, varEins As Variant, varZwei As Variant) As Long Dim lngZeile As Long Dim lngAnz As Long Dim varListe() As Variant Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") varListe = rngListe.Value For lngZeile = 1 To UBound(varListe, 1) If varListe(lngZeile, 1) = varEins Then dict(varListe(lngZeile, 2)) = 1 End If Next lngZeile lngAnz = 0 For lngZeile = 1 To UBound(varListe, 1) If varListe(lngZeile, 1) = varZwei Then If dict.exists(varListe(lngZeile, 2)) Then lngAnz = lngAnz + 1 End If End If Next lngZeile GleicheStoffe = lngAnz Set dict = Nothing End Function
ps. Falls gleiche Kombinationen Produkt;Einsatzstoff mehrfach auftreten, müste eine Zeile ergänzt werden.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen." Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
