Addition von 2 Spalten
04.05.2020 17:40:34
2
alle meine Versuche die Spalten 4 und 5 zu addierem sind gescheitert.
Als Einträge sollen möglich sein: Nur Spalte 4, nur Spalte 5 oder Spalte 4 und 5.
Ich bitte um Hilfe. Mit freundlichen Grüßen Wolfgang
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Target > 0 Then
Target.Offset(0, 3).Value = Target * Range("$D$4")
Target.Offset(0, 3).NumberFormat = "#0.0 "
Target.Offset(0, 3).Interior.Color = vbGreen
Else
Target.Offset(0, 3) = ""
Target.Offset(0, 3).Interior.Color = xlNone
End If
End If
'---------------------------------------------------------------
If Target.Column = 5 Then
If Target > 0 Then
Target.Offset(0, 2).Value = Target * Range("$E$4")
Target.Offset(0, 2).NumberFormat = "#0.0 "
Target.Offset(0, 2).Interior.Color = vbGreen
Else
Target.Offset(0, 2) = ""
Target.Offset(0, 2).Interior.Color = xlNone
End If
End If
End Sub
