Ich möchte an der Stelle das Format mitgeben. Kann mir jemand Helfen?
Spalte 12 soll eine Zahl oder ein Buchstabenkombi sein dürfen
Spalte 13 und 14 sind Zahlen mit zwei gerundete Kommastellen
For i = 1 To 20
Cells(i + 17, 3).FormulaR1C1 = "=Erfassung.xlsm!Menge" & i
Cells(i + 17, 12).FormulaR1C1 = "=IF(Erfassung.xlsm!Menge" & i & "="""","""",Erfassung. _
_
xlsm!ETeil" & i & ")"
Cells(i + 17, 13).FormulaR1C1 = "=IF(Erfassung.xlsm!Menge" & i & "="""","""",Erfassung. _
_
xlsm!Einzel" & i & ")"
Cells(i + 17, 14).FormulaR1C1 = "=IF(Erfassung.xlsm!Menge" & i & "="""","""",Erfassung. _
_
xlsm!netto" & i & ")"
Next i
Liebe Grüße Sabbel