ich bin am Verzweifeln, da ich den Fehler hier einfach nicht finde. Abbruch mit Fehler 1004.
Sub test()
Dim i%
'Monat 01 füllen
'DIESE FORMEL SOLL EINGEFÜGT WERDEN !!!! ABER SIE TUTS EINFACH NICHT
'=(O2+(WENN(F2="ATA";0;WENN(UND(F2="GEW";G2<>"Auszubildende(r)");O2*2,3%*ex_u01;O2*2,4%*ex_u01)))
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 29).FormulaLocal = "=(O" & i & "+(WENN(F" & i & " = ""ATA"" ;0;WENN(UND(F" & i & "=""GEW"";G" & i & "<>""Auszubildende(r)"");O" & i & "*2,3/100 * ex_u01;O " & i & " *2,4/100*ex_u01)))"
Next
End Sub
Jemand eine Idee
Markus