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
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