AW: dachte mehr an Worksheet_Change-Ereignis
12.03.2008 22:39:51
Daniel
Hi
du könntest das vielleichtt mit diesem Code erreichen:
wenn in Spalte D ein "ja" eingegeben wird, dann wird die Formel in Spalte H ergänzt, wird in Spalte D ein "nein" eingegeben, dann wird die Zelle geleert du du kannst deinen Festwert eintragen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("$D$7:$D$21,$D$29:$D$43")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case "nein"
Cells(Target.Row, "H").Value = ""
Case "ja"
Cells(Target.Row, "H").FormulaR1C1 = "=IF(AND(R3C5=""ja"",RC[-3]=""Instandsetzung"",RC[- _
4]=""ja""),RC[-1]*R3C7,IF(AND(R3C5=""ja"",RC[-3]=""Instandsetzung"",RC[-4]=""nein""),RC[-1]*R3C8,IF(RC[-3]=""Abbruch"",RC[-1]*R3C9,"""")))"
End Select
Application.EnableEvents = True
End Sub
für die Formel übernehme ich keine Garanie, ich habe sie einfach von dir kopiert, ohne sie zu verstehen und zu prüfen.
Gruß, Daniel