Zellen mit Formel ausfülen
06.01.2006 13:32:30
Erich
Habe wieder mal ein Problem.
Ich muß in der Spalte J immer das aktuelle Alter haben.
Da sich die Anzahl der Zeilen sich immer wieder ändert, wollte ich
mit folgenden Code die Formel eintragen.
Public
Sub Alter()
Dim i, x As Integer
Dim dblRange As Double
Range("c1:c" & Cells(Rows.Count, 3).End(xlUp).Row).Select
dblRange = Selection.Rows.Count
x = dblRange
For i = 2 To x
Cells(i, 10).Formula = "=WENN(NICHT(ISTFEHLER(WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2))));WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2));"")=WENN(NICHT(ISTFEHLER(WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2))));WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2));"")=WENN(NICHT(ISTFEHLER(WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2))));WENN(DATUM(JAHR(HEUTE());MONAT(I2);TAG(I2))>HEUTE();JAHR(HEUTE())-JAHR(I2)-1;JAHR(HEUTE())-JAHR(I2));"")"
Next i
Tabelle1.Range("A1").Select
End Sub
Nur bekomme ich die Fehlermeldung "Objekt oder Anwendungsfehler"
was mache ich verkehrt.
Für einen Tipp wäre ich Dankbar.
Gruss Erich