Problem mit Formel
03.03.2004 20:32:11
TinoB
sorry das die seite jetzt soweit nach rechts geht, aber ich wollte die komplette formel eintragen. ich habe hier in der Case 20 anweisung en problem. immer wenn ich den button zum berechnen betätige kommt der Laufzeitfehler 13. hab nichts konkretes darüber gefunden. könnte mir jemand helfen? ist die formel zu lang? weil bis zum punkt (Cells(rng.Row, 18) funktioniert das ganze noch. ich habe dann auch auf eine andere zelle verwiesen, dachte es liegt daran. keine chance. was kann ich tun?
Danke
Tino
Private Sub CommandButton1_Click()
Dim rng As Range, LZ As Integer
LZ = Range("G65536").End(xlUp).Row
For Each rng In Range(Cells(20, 7), Cells(LZ, 7))
Select Case rng
Case 10:
If Cells(rng.Row, 23) > 900 Then Cells(rng.Row, 25) = ((Cells(rng.Row, 11) + Cells(rng.Row, 12)) * 2 * Cells(rng.Row, 23) / 1000000) * Cells(rng.Row, 5) Else Cells(rng.Row, 25) = 0
If Cells(rng.Row, 23) <= 900 Then Cells(rng.Row, 26) = ((Cells(rng.Row, 11) + Cells(rng.Row, 12)) * 2 * Cells(rng.Row, 23) / 1000000) * Cells(rng.Row, 5) Else Cells(rng.Row, 26) = 0
Case 20: Cells(rng.Row, 26) = (((Cells(rng.Row, 11) + Cells(rng.Row, 12) * 2) / 1000) * ((Cells(rng.Row, 22) * Cells(rng.Row, 27) * (Cells(rng.Row, 18) + Cells(rng.Row, 12)) / 180) / 1000) + (Cells(rng.Row, 15) + Cells(rng.Row, 16)) / 1000) * Cells(rng.Row, 5)
End Select
Next rng
End Sub