Problem mit Formel in VBA
30.06.2008 16:08:00
Christian
ich hoffe ich bin nur blind, aber nach nun 3 Stunden an der Formel kann ich einfach nicht mehr und hoffe das mir jemand sagen kann wo der Fehler steckt.
Im Excel lautet die Formel wie folgt:
=WENN(ODER(E13="U";E13="";E13="K")*UND(M13="");0;MAX(0;(F13-E13-Pause)*24))
nun habe ich aber 2 Enscheidungskriterien die die Formel beeinflussen so das sie ein wenig modifiziert werden muss. Die geschieht über einen Radiobutton der dann folgenden Code schreibt:
Private Sub OptionButton2_Click()
Dim i As Integer
For i = 13 To 43
ActiveSheet.Cells(i, 9).FormulaR1C1 = "=WENN(ODER(E" & i & "=" & Chr(34) & "U" & Chr(34) & " _
;ISTLEER(E" & i & ");E" & i & "=" & Chr(34) & "K" & Chr(34) & ");0;MAX(0;(F" & i & "-E" & i & "-Pause-)*24)"
Next i
End Sub
Es soll also bei diesem Beispiel genau die gleiche Formel in die Zelle geschrieben werden.
Wobei ich jetzt aber einen Laufzeitfehler '1004' bekomme.
Schon einmal danke für eure Bemühungen.
Gruß
Christian
Anzeige