und zunächst ein gutes Neues Jahr 2013 !
Mit folgendem Code addiere ich zusammenhängende Werte einer Zeile in eine eine darüberliegende Zeile, in der sich bereits Werte befinden.
Frage:
Wie erreiche ich, das NURdie Zellen B14, H14, N14, T14 übertragen werden?
(Nach B14 ist es also die 6, 12. und 18. Zelle).
Hier die Datei: https://www.herber.de/bbs/user/83246.xls
Vielen Dank für jeden Tipp!
Dietmar aus Aachen
Sub Addition_ZeilenWerte()
Dim rngC As Range
If Application.Count(Range("B14:T14")) 0 Then '= Quelle
For Each rngC In Range("B14:T14").SpecialCells(xlCellTypeConstants)
With rngC
.Offset(-2, 0) = .Offset(-2, 0) + .Value '=Ziel
End With
Next
Else
Exit Sub
End If
End Sub