Formel Problem

Hallo zusammen,
hänge gerade an einer Formel "SUMMEWENNS"
die Formel funktioniert rein tadellos, sobald ich sie ins VBA mache und eine Variable dazu mache geht nix mehr, komme nicht auf den Fehler.

Standard: geht


=SUMMEWENNS(Rohdaten!$H:$H;Rohdaten!$AZ:$AZ;Kunden!$A2;Rohdaten!$AY:$AY;Kunden!$C$1;Rohdaten!$C:$C;">="&$G$14;Rohdaten!$C:$C;"="&$I$14)

Angepasst im VBA: geht

    Thisbook.Worksheets("Kunden").Range("C2:C" & letztez).FormulaLocal = "=SUMMEWENNS(Rohdaten!$H:$H;Rohdaten!$AZ:$AZ;Kunden!$A2;Rohdaten!$AY:$AY;Kunden!$C$1;Rohdaten!$C:$C;"">=""&$G$14;Rohdaten!$C:$C;""=""&$I$14)"

Wenn ich aber eine Variable einfügen will, geht nix mehr, setze irgendwo die Anführungsstriche falsch vermutlich
der Plan wäre die beiden Variablen zu verwenden.

    Dim zvon, zbis As Date

    zvon = Thisbook.Worksheets("Kunden").Range("G14").Value

    zbis = Thisbook.Worksheets("Kunden").Range("I14").Value



    Thisbook.Worksheets("Kunden").Range("C2:C" & letztez).FormulaLocal = "=SUMMEWENNS(Rohdaten!$H:$H;Rohdaten!$AZ:$AZ;Kunden!$A2;Rohdaten!$AY:$AY;Kunden!$C$1;Rohdaten!$C:$C;"">=""&" & zvon &";Rohdaten!$C:$C;""=""&" & zbis & ")"

zvon sollte $G$14 ersetzen
zbis sollte $I$14 ersetzen

Habt Ihr eine Idee?

Danke und Gruss
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel Problem

24.10.2023 16:02:44

daniel

AW: Formel Problem

24.10.2023 16:23:41

daniel

AW: Formel Problem

24.10.2023 17:22:26

Juergen Geier

AW: Formel Problem

25.10.2023 20:00:13

Juergen Geier

AW: Formel Problem

29.10.2023 22:32:57

onur

AW: Formel Problem

31.10.2023 09:28:26

Juergen

AW: Formel Problem

31.10.2023 11:41:23

onur

Hi
ich mach das immer so:
1. Formel erstmal funktionsfähig in einer Excelzelle erstellen und dann für den Code mit gedoppelten Anführungszeichen kopieren.
2. im Code die Formel zunächst einer Variablen zuweisen: FO ="=Summe(A1:A99)
3. bei dieser Zuweisung die Zeile, die durch Variablen gebildet werden sollen, durch einen Dummy-Text , der so in der Formel nicht vorkommt, ersetzen, also die Zeile nicht wie unter gezeigt, sondern so: FO = "=Summe(Axxx:Ayyy)"
4. in der Folge dann mit Replace die Dummy-Texte durch den Variablenwert ersetzen und dann erst die Formel in die Zelle schreiben:

von = 1

bis = 99

FO = "Summe(Axxx:Ayyy)"

FO = Replace(FO, "xxx", von)

FO = Replace(FO, "yyy", bis)

Cells(1, 1).FormulaLocal = FO

sind zwar ein paar mehr Zeilen, aber bei komplexeren Formeln wird dadurch das einbringen von Variablen in den Formeltext deutlich einfacher und man verhaspelt sich nicht mit den Anführungszeichen.

zum konkreten Fall:
1. Dim zvon, zbis As Date deklariert nur zbis als Date, zbis wird Variant, weil du keinen speziellen Datentyp zuweist
2. ich würde hier für beide Datentypen LONG verwenden, Date ist kritisch, weil er Formatierung mit Wert mischt.
solltest du hier mit Datumswerten arbeiten wollen, ist das zwar prinzipell möglich, wird aber aufgrund der Problematik: "Datum als Text im amerikanischen oder deutschen Format" schnell unübersichtlich. Ich würde daher hier bei Zahlen bleiben.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel Problem

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread