|
Hallo zusammen,
ich würde gerne folgende Formel in der Spalte K (beginnend mit der Zelle K2) ohne Formatierung einfügen und sie sollte sich chronologisch bis zur letzten Zeile in der Spalte K mit verändern.
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("K2").Formula = "IF(E2="",(SUMIFS(K:K,J:J,"N0",N:N,N2)+SUMIFS(K:K,J:J,"N1",N:N,N2)+SUMIFS(K:K,J:J,"N2",N:N,N2)),IF(J2="N0",I2,IF(J2="N2",I2/120*100,IF(J2="N1",I2/110*100,"fehler"))))"
Range("K2:K" & iRow).FillDown
Frage 1: Wie kann ich die Formel in meinem Fall per Makro ohne Formatierung einfügen?
Frage 2: Die Formel funktioniert im Excel Tabellenblatt wertmäßig richtig und ich habe sie in VBA im Direktbereich für die Makroverformelung umgewandelt (s. oben) und sie auch so in VBA eingefügt, aber leider tritt immer ein Fehler beim Kompilieren (z.B. bei "N0", was als Kriterium von mir festgelegt wurde) auf und er erwartet sich ein Anweisungsende... habt ihr eine Idee ?
Vielen Dank im Voraus!
LG
|