mir platzt hier gleich der Kopf - bekomme das einfach nicht auf die Reihe und hoffe ihr könnt helfen.
Ich möchte via VBA eine Excel-Formel in eine Zelle schreiben. Das wäre per se auch erst mal kein Problem, wenn die Formel zum einen nicht konkateniert wäre und zum anderen ich auch noch die Anführungszeichen "escapen" muss.
Letzteres geht ja auch erst mal einfach, indem man einfach 2 Anführungszeichen schreibt, aber die Kombination und Länge der Formel sprengt mein Vermögen :(
Konkret sieht die (korrekte) Excel-Formel so aus:
=ZÄHLENWENN(B11:B999;"MA1")&" ("&(ZÄHLENWENNS(B11:B999;"=MA1";E11:E999;"=Ja") &" - "&ZÄHLENWENNS(B11:B999;"=MA1";E11:E999;"=NEIN")&" - "&ZÄHLENWENNS(B11:B999;"=MA1";E11:E999; "=Vielleicht")&")")
Das Ergebnis wäre dann z.B. sowas hier: 48 (1 - 1 - 1)
Wenn ich das versuche zu übertragen wirds so was:
Sheets("Tabelle1").Cells(6, 1).FormulaLocal = "=ZÄHLENWENN(B11:B999;""MA1"")&" ("&(ZÄHLENWENNS(B11:B999;""=MA1"";E11:E999;""=Ja"")&" - "&ZÄHLENWENNS(B11:B999;""=MA1"";E11:E999;""=NEIN"")&" - "&ZÄHLENWENNS(B11:B999;""=MA1"";E11:E999;""=Vielleicht"")&")")"
Ergebnis: Nur noch Fehlermeldungen...egal wie viele oder wenig " oder & ich setze.
Wenn ich das Stück für Stück versuche in VBA umzusetzen komme ich immerhin bis zu der Stelle an der die Konkatenierung beginnt. Die Anweisung in VBA wäre dann:
Sheets("Übersicht").Cells(4, 2).FormulaLocal = "=ZÄHLENWENN(B11:B999;""MA1"")"
Immerhin ein Ergebnis von: 48
Danach bekomme ich außer ner Fehlermeldung nix mehr hin.
Kann hier jemand helfen?
Danke vorab.