OpenOffice.info

Code: Alles auswählen

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RaBereich As Range, RaZelle As Range
        Set RaBereich = Range("C:D")
        For Each RaZelle In Range(Target.Address)
        If Not Intersect(Target, Range("C:C")) Is Nothing Then
                                                                                                                                                                                                                                            Cells(Target.Row, 2) = Cells(Target.Row, 2) - Cells(Target.Row, 3)
             End If
        If Not Intersect(Target, Range("D:D")) Is Nothing Then
            Cells(Target.Row, 2) = Cells(Target.Row, 2) + Cells(Target.Row, 4)
            End If
    Next RaZelle
    End Sub