Nachfolgende Formel wird über VBA Code in Spalte O eingetragen bis zum letzten Eintrag in Spalte A
Nun kann es aber vorkommen dass bis zum letzten Eintrag in Spalte A einige Zellen in A frei sind,
hier soll dann in der Zeile Spalte O keine Formel erscheinen, also Zelle leer bleiben.
Hoffe Ihr versteht was ich meine.
With Tabelle3
lngZ = Application.Max(9, .Cells(.Rows.Count, 1).End(xlUp).Row)
.Range("O2:O" & lngZ).FormulaR1C1 = _
"=IF(RC[1]<RC[-11]+RC[-9]-1,RC[-10],IF(RC[1]<RC[-11]+RC[-7]-1,RC[-8],IF(RC[1]<RC[-11]+RC[-5]-1,RC[-6],IF(RC[1]<RC[-11]+RC[-5],RC[-4],IF(RC[1]<RC[-11]+RC[-3],RC[-2],RC[-2])))))"
End With
Danke schon mal