Makro - bin am verzweifeln...
16.09.2005 15:19:22
Astrid
warum funzt das nicht?
Hat jemand ne Idee?
Ziel: Aus einer Eingabemaske heraus werden div. Eingaben vorgenommen in die Zellen C7 bis H7. Dann soll eine Berechnung durchgeführt werden, wo sich die Zellen C7 und E7 Und G7 addieren sollen.(Siehe Makro)
Es kann aber sein, das dieser Wert auch überschrieben werden soll.
In diesem Makro, wobei mir John schon sehr geholfen hat, wird aber die Addition nicht vorgenommen.
Die Addition hat Vorrang vor dem Überschreiben.
In der Eingabemaske wird kein Wert eingetragen, wenn die Berrechnung greifen soll, ansonsten soll durch Eingabe einer Zahl der Wert der Addition überschrieben werden (hoffentlich hab ich mich verständlich ausdrücken können)
Private Sub TerminvereinbarungZiel_Change()
Dim rng As Range
Dim Zahl As Integer
Set rng = Range("A6:A59").Find(Woche)
Zahl = TerminvereinbarungZiel
If rng Is Nothing Then
rng.Offset(0, 13) = Zahl
Else
rng.Offset(0, 13).FormulaR1C1 = "=IF(R[-8]C3>=0,(R[-8]C3+R[-8]C5+R[-8] C7),"""")"
End If
End Sub
Hat jemand ne Idee? Ich hab schon sovieles versucht, aber alles ohne Erfolg!
Bin am verzweifeln...
Gruss Astrid