Hi,
ich habe eine Tabelle, in die ich verschiedene Formeln via Makro kopiere -
der jeweile Teil des Codes ist dabei immer wie folgt aufgebaut, nur mit jeweils unterschiedlichen Formeln:
With Range("K2:K" & Cells(Rows.Count, 2).End(xlUp).Row)
.FormulaLocal = "=IF(L2="""","""",IF((TODAY()-L2)=0,1,(TODAY()-L2)))"
.Formula = .Value
End With
Das Ganze funktioniert gut und macht die Datei schön klein, das Makro braucht dadurch allerdings sehr lange für die Berechnung (ca. 2-3 Min.).
Kennt Ihr einen Weg, wie man hier definieren kann, dass das Makro stoppt, die Formel nach unten zu kopieren, sobald eine leere Zelle in Spalte B erreicht ist (dies ist immer automatisch das Ende der Einträge, da diese vorher sortiert werden) ?
VG u. vielen Dank im Voraus,
Mike