Habe mal wieder ein Problem, dass ich nicht gelöst bekomme und Eure Hilfe brauche.
Habe es in der hochgeladenen Datei, alles beschrieben.
https://www.herber.de/bbs/user/76580.xls
Danke
Gruß, Josef
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intz1 As Integer
intz1 = Target.Cells.Row
With Me
If .Cells(intz1, 5).Value 0 Then .Cells(intz1, 6).Value = _
.Cells(intz1, 6).Value + .Cells(intz1, 5).Value: .Cells(intz1, 5).Value = ""
End With
End Sub
M.f.G.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim blnCode As Boolean
If Not blnCode Then
If Target.Column = 6 Then
blnCode = True
Target.Offset(, 1) = Target.Offset(, 1) + Target
Target.ClearContents
blnCode = False
End If
End If
End Sub