ich möchte Werte die ich händisch in die Spalte K5 bis K15 eingebe, in Spalte L5 bis L15 hinzuaddieren.
Kann mir bitte jemand einen Tipp geben, wie ich das realisieren kann?
Danke schon mal
Gruß
Josef
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K5:K15")) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1) = Target.Offset(, 1) + Target
End If
End Sub
Gruß Matthias
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K5:K15")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) Then Target.Offset(, 1) = Target.Offset(, 1) + Target
End If
End Sub
Gruß Matthias