Office: String Variable korrekt einsetzen in Formel über VBA

Hallo, ich habe ein Sub geschrieben dass mir die aktive Zelle mit einer Formel ausfüllt.

Sub test1()
erlösart="Wasser*"
ActiveCell.FormulaR1C1 = "=SUMIF(C19,"" + erlösart + "",C28)"
End Sub

Ich will also, dass letztendlich in der aktiven Zelle steht

=Summewenn($S:$S, "Wasser*", $AB:$AB)

er schreibt mir natürlich

=Summewenn($S:$S," + erlösart + ", $AB:$AB)

Ich habe schon viel rumprobiert, aber ich finde nicht heraus wie ich dieses Suchkriterium korrekt hineinschreiben lasse mit "" um den Wert, wenn ich es über eine Variable einsetzen lassen will.


ActiveCell.FormulaR1C1 = "=SUMIF(C19,"Wasser",C28)"
funktioniert aber das erfüllt nicht den Zweck :/

Grüße

:)

 

Hallo,

so:

Code:

 

Hallo,

Code:

Grüße
EarlFred

 

danke das funktioniert *Smilie