Hilfe!!!!finde fehler nicht in berechnung
19.03.2006 00:03:13
selo
Cells(loI, 23).FormulaLocal = "=WENN(s" & loI & ">v" & loI & ";0;(WENN(v" & loI & ">t" & loI & "+s" & loI & ";t" & loI & "; t" & loI & "+s" & loI & "))"
ich bekomme immer einen fehler bei dieser formel "laufzeitfehler ´1004´ "anwendungs- oder objektdefinierter fehler"
der fehler müßte im bereich (WENN(v" & loI & ">t" & loI & "+s" & loI & ";t" & loI & "; t" & loI & "+s" & loI & "))" liegen jedoch komme ich nicht darauf, wahrscheinlich ist es die müdigkeit.
ich hoffe ihr könnt mir helfen
dies ist eine verkürzte version des codes:
Sub selo_berechnung()
Worksheets("gesamtplanung").Activate
With ActiveSheet
Dim loLetzte As Long
Dim loI As Long
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
For loI = 2 To loLetzte
Cells(1, 23).FormulaLocal = "abgelaufende Tage"
Cells(loI, 23).FormulaLocal = "=WENN(s" & loI & ">v" & loI & ";0;(WENN(v" & loI & ">t" & loI & "+s" & loI & ";t" & loI & "; t" & loI & "+s" & loI & "))"
Range(Cells(loI, 19), Cells(loI, 30)).HorizontalAlignment = xlCenter
Range(Cells(loI, 19), Cells(loI, 30)).Font.ColorIndex = 4
Next loI
Cells(12, 17).FormulaLocal = "=max(d2:d" & loLetzte & ";1)"
End With
End Sub