Office: per VBA eingesetzte Formeln werden nicht berechnet

Hallo, allerseits!

Ich habe hier ein kleines, wenn auch nicht weniger lästiges, Problem. Folgender Code-Ausschnitt:

Code:

            s3.Range("b4").Formula = "=sumif('" & zugz & "'!$m:$m,$a4&"" ""&$a$3&"" p ""&wenn(b$3<>""offen"",text(year(b$3),""0000"")&"" ""&text(month(b$3),""00""),""0000 00""),'" & zugz & "'!$d:$d)/1000000"
            's3.Range("b4").Copy Destination:=s3.Range("b4:n5")
            's3.Range("b4").Copy: s3.Range("b4:n5").PasteSpecial Paste:=xlPasteFormulas
            s3.Range("b4").Copy Destination:=s3.Range("b5")
            s3.Range("b4").Copy Destination:=s3.Range("c4:n4")
            s3.Range("b5").Copy Destination:=s3.Range("c5:n5")

(Durch die ' sind nur unterschiedliche Variationen der Geschichte möglich...)

Der Code setzt eine Formel in B4 ein und kopiert diese dann auf den kompletten Bereich B4:N5. Die Variante mit dem PasteSpecial wäre mir am liebsten, aber z.Z. funktioniert keine der Möglichkeiten so richtig. Denn was passiert?

Nach dem Code stehen in B4:N5 nur "0"en als Ergebnis. Erst, wenn ich einmal mit dem Cursor in die Bearbeitungszeile gehe und mit Return wieder verlasse, wird das (durchaus korrekte) Ergebnis berechnet. Wohlgemerkt: Ohne Änderung an der Formel, nur durch Return aus dem Editor raus.

Ein Drücken von F9 bleibt übrigens auch ohne Wirkung...

Wahrscheinlich ist es wichtig: Die Werte, über die Summen gebildet werden, befinden sich auf einem weiteren Blatt (Blattname in Variable "zugz"), das kurz vorher erstellt und mit Daten aus einer Textdatei gefüllt wird.

Kennt jemand das Phänomen und womöglich sogar eine Abhilfe?

Gruß, Michael

 

Hallo!

Hast du mal versucht, danach per VBA neu zu berechnen?
Application.Calculate
oder vielleicht sogar
Application.CalculateFull
Vielleicht hilft das ja was.

 

Das 2. hatte ich gar nicht mehr auf der Reihe, aber das 1. hatte ich bereits probiert, ja. Auch mit "full" ändert sich aber leider nichts.

Gruß, Michael

 

Hallo Michael,

kann es nicht an Folgendem liegen:
Du verwendest die Formula-Eigenschaft beim Range-Objekt, was aber voraussetzt, dass die Formel die englische Formelschreibweise benötigt (bei FormulaLocal kann man die deutsche Formelschreibweise verwenden). Das hast Du auch getan - mit 1 Ausnahme: .... wenn(...
Wenn Du statt des blauen wenn ein if einsetzst, dann braucht Excel im Arbeitsblatt keinen zusätzlichen Konversionsschritt (-> Editierzeile !!) durchführen und es kann sofort mit der Rechnerei anfangen.

s3.Range("b4").Formula = "=sumif('" & zugz & "'!$m:$m,$a4&"" ""&$a$3&"" p ""&wenn(b$3<>""offen"",text(year(b$3),""0000"")&"" ""&text(month(b$3),""00""),""0000 00""),'" & zugz & "'!$d:$d)/1000000"

 

JAAAAA, BINGO!!! Das war der Fehler! Ich hab beim Umsetzen der Formel in die englische Version einfach ganz blöd ein "wenn" übersehen.

Jetzt geht's wieder, danke!

Gruß, Michael