Zwei Summenprodukt-Codes (VBA) verbinden

[BoskoBiati]

Hi,

beim oberen Code haben ja auch die Klammern hinter 641 gefehlt!

[Tommiks]

Danke , habe korrigiert.

[snb]

Du suchst eine Lösung für ein falschen Struktur.
Benütze Excel Optionen.

[Tommiks]

@snb,

vielen Dank für den neuen Weg. Ich werde deinen Ansatz bei Optimierungen implementieren.


Ich dachte , dass ich meine Formel richtig in einen umgewandelt hatte, 

Die Formel erkennt die Buchstaben ,und  ignoriert sie.

Code:

=SUMMENPRODUKT(($E$7:$E$17=328)*1;($C$7:$C$17);($E$7:$E$17<>"a")*1)+SUMMENPRODUKT(($N$7:$N$17=328)*1;($L$7:$L$17);($N$7:$N$17<>"a")*1)

Aber der Code zeigt bei Buchstaben Fehler an.

Code:

Range("Y4").Value = Worksheets("Schicht 1").Evaluate("SUMPRODUCT(($E$7:$E$17=328)*($C$7:$C$17)*($E$7:$E$17<>""a"")+($N$7:$N$17=328)*($L$7:$L$17)*($N$7:$N$17<>""a""))")

[00202]

Moin,  

wenn du evaluierst, muss die Formel mit einem Gleichheitszeichen beginnen.
[attachment=48825]

Wenn du eine funktionierende Formel hast, bekommst du auf diesem Wege die Eingabe für VBA:

• Formelzelle auswählen/selektieren/markieren
  
• Dann im VBA-Editor im Direktbereich (STRG+G) folgendes eingeben...
  
• ?activecell.Formula mit Fragezeichen am Anfang - dann Return
  
• Ergebnis wird direkt ausgegeben
  
• Anführungszeichen bei Strings verdoppeln
  

[snb]

@Case

wenn du evaluierst, muss die Formel mit einem Gleichheitszeichen beginnen

Schade, das stiimmt gar nicht.

Code:

Sub M_snb()
  MsgBox Evaluate("countblank(A1:A20)")
End Sub

[00202]

Hallo snb,  

du hast recht. Entweder habe ich das falsch in Erinnerung, oder es ging früher nicht.