Moin,
da beim letzten Problem hier so schnell so super funktionierende Lösungen gepostet wurden bin ich schon wieder da ;-)
Und zwar möchte ich diesmal gern verschiedene Zellen mit Formeln füllen. Die Formel ändert sich, je nachdem ob in Spalte X ein D oder I steht. Die Formel selbst steht in der Spalte M. Ums einfach zu machen hab ich Bereichsnamen vergeben.
Die eigentliche Formel direkt in der Zelle eingegeben funktioniert hervorragend. Nur wenn ich sie mit VBA reinschreiben will, meckert er immer, das ein Anweisungsende fehlt. Ich weiss nur nicht wo.
Es geht um folgenden Code:
ActiveSheet.Range("M2:M" & letzteZeile).Formula = "=if _(DivInt="D",Stücke*DivProStückInZahlWähr,Stücke*DivProStückInZahlWähr/100)"
Wenn ich die if-Formel genauso aus dem VBA Editor kopiere und in der Zelle direkt einfüge, funktioniert sie.
Der VBA-Editor beschwert sich bei ...DivInt="D",... und markiert als Fehler das D und gibt als Meldung aus: Fehler beim Kompilieren: Erwartet: Anweisungsende.
Gruß und schon mal 10tausend Dankeschöns
Alex