Hallo bräuchte wieder einmal Hilfe von den Experten!
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