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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen