Gruppe
Allgemein
Bereich
Kopieren
Thema
Werte zu Zieladressen übertragen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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