Office: Text mit Zeilenumbruch und Formel mit Variabel per VBA

Guten Tag zusammen,

ein ähnliches Problem wurde bereits im Forum gelöst, aber ich komme leider nicht weiter.
Mein Ziel ist es der Zelle M1 per VBA einen Text zuzuweisen mit Zeilenumbruch. Nach dem zweiten Zeilenumbruch soll dann ein Wert per Formel (Teilergebnis) ermittelt werden. Da ich aber unmittelbar vor dieser Textzuweisung erst ermittle, wie weit mein Formelbezug geht, habe ich die Endzeile, bis dort soll das Teilergebnis erfasst werden, in der Long Variablen "Ende" hinterlegt.

"Differenz"
"Frachtbetrag"
TEILERGEBNIS "€"

Mein Problem ist es, dass sowohl die Zeilenumbrüche nicht korrekt wiedergegeben werden, bei dieser Formelvariante:

ActiveCell.FormulaR1C1 = _
"=""Differenz"" &" & Chr(10) & """Frachtergebnis""&" & Chr(10) & "SUBTOTAL(9,R[1]C:R[747]C) & "" €"""

und dass wenn ich die Variable "Ende" mit ins Spiel bringe, nur der Debugger sich meldet:

ActiveCell.FormulaR1C1 = _
"=""Differenz"" &" & Chr(10) & """Frachtergebnis""&" & Chr(10) & "SUBTOTAL(9,R[1]C:R[Ende-1]C) & ""€"""

Natürlich soll das Teilergebnis variabel bleiben, so dass der User etwas davon hat, wenn er filtert. Gefühlsmäßig würde ich lieber mit FormulaLocal arbeiten, aber da lasse ich mich von euch auch gerne von abbringen. *wink.gif*

Danke euch für eure Hilfe!
(Excel 2010 nutze ich)

Viele Grüße

:)

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten

 

Moin!
Wenn Du eine Variable in einem String unterbringen willst, darf diese nicht innerhalb der "" verwurstet werden, sondern muss richtig per & verkettet werden. (ungetestet)
Code:

Gruß Ralf

 

\@Hajo_Zi recht hast du. Vielen Dank für deine Antwort. Anbei die Datei

@RPP63neu Danke für den Tipp. Bei den ganzen Anführungszeichen habe ich die übersehen. Der Code sieht nun so aus:

Code:

Die Variable Ende funktioniert nun einwandfrei. Nur die Zeilenumbrüche mag er noch nicht akzeptieren.
Habt ihr noch eine Idee? Danke euch!

 

Habe Hajos Hinweis umgesetzt und bin von der ZS Formel weg. Der Code sieht nun so aus:

Code:

Die Formeln, inkl. Ende funktionieren einwandfrei. Nur die Zeilenumbrüche funktionieren noch nicht.

 

Du darfst keinen Chr(10) in den Formelstring einarbeiten, sondern musst die Tabellenfunktion CHAR() nutzen!
Außerdem stimmen die "" immer noch nicht.
Mal ein Beispiel:
in B15 steht ein Datum
in einer beliebigen Zelle die Formel
="Differenz"&ZEICHEN(10)&"Frachtergebnis"&ZEICHEN(10)&TEXT(B15;"TT.MM.JJJJ")
Wenn ich diese als .FormulaR1C1 per VBA in die Zelle eintragen will, lautet der Formelstring:
"=""Differenz""&CHAR(10)&""Frachtergebnis""&CHAR(10)&TEXT(R[2]C[1],""TT.MM.JJJJ"")"

Gruß Ralf

 

Danke für den Hinweis Ralf.

Wenn ich die Variable Ende durch eine Zahl ersetze funktioniert nun dieser Code:
Code:

Wenn ich jetzt allerdings die statische 748 durch meine Variable Ende ersetzen möchte, komme ich nicht weiter:

Code:

Fehler beim Kompilieren: Syntaxfehler

Ich glaube ich stelle mich sehr doof an... sorry.

Danke und Gruß
Kai

 

Guten Morgen zusammen,
hat noch jemand eine Idee?

Bin dankbar für jeden Tipp.

Viele Grüße

 

Hallo zusammen,

habe es wie folgt gelöst:
Code:

Danke für eure Hinweise!

Gruß
Kai