Hallo,
es soll eine Collection mit Firmen durchlaufen und die passenden Werte
aus Spalte H-K mit SUMPRODUKT addiert werden.
Problem: enthält der Firmenname Anführungszeichen, liefert SUMPRODUKT #WERT.
Set rngFirmen = ActiveSheet.Range("B2:B" & lngLZ)
Set rngAE = ActiveSheet.Range("H2:K" & lngLZ)
'Collection durchlaufen und Werte aus H2 bis K? summieren:
.Cells(lngZeile + 1, 16) = _
Evaluate("=SUMPRODUCT((" & rngFirmen.Address & "=""" & col(lngZeile) & """)*(" & rngAE.Address & "))")
in col(lngZeile) steht die Firma.
Wenn die Firma so aussieht: BMW "Müller"
liefert SUMPRODUCT #WERT
(wegen der Anführungszeichen im Firmennamen)
Die Formel funktioniert:
=SUMMENPRODUKT(($B$2:$B$1000=B2)*($H$2:$K$1000))
Aber eben nur statisch. Wie kann ich das trotz Anführungszeichen dynamisch mit vba machen?
Gruß
Alfons
http://vba1.de