Gruppe
Allgemein
Problem
Wie kann ich Werte aus Spalte A an die in Spalte B stehenden Zieladressen übertragen und dabei berücksichtigen, daß - wenn sich an der Zieladresse bereits ein Wert befindet, dieser zu dem neuen Wert hinzuaddiert wird.
StandardModule: basMain
Sub UebertragenUndAddieren()
Dim iCounter As Integer
iCounter = 1
Do Until IsEmpty(Cells(iCounter, 1))
If IsEmpty(Range(Cells(iCounter, 2).Value)) Then
Range(Cells(iCounter, 2).Value).Value = _
Cells(iCounter, 1).Value
Else
Range(Cells(iCounter, 2).Value).Value = _
Range(Cells(iCounter, 2).Value).Value + _
Cells(iCounter, 1).Value
End If
iCounter = iCounter + 1
Loop
End Sub