Problem mit einer VBA Code Auf Abzählen
03.12.2004 09:39:50
Stephan
ich mir folgenden Code zusammen gestrickt.
In der Zelle A1 wir ein Wert zu A2 dazu addiert. In Zelle A3 wird der wert von A2 wieder abgezogen.
Mein Problem: Wie bekomme ich den Code über alle Zellen von A1 bis A1000 ?
If Target.Column = 1 And Target.Row = ? (Wie muss das hier stehen) Then
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target.Value
End If
If Target.Column = 3 And Target.Row = 1 Then
Target.Offset(0, -1) = Target.Offset(0, -1) - Target.Value
End If
Target.Select
End Sub
D