Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Werte zu Zieladressen übertragen
Gruppe
Kopieren
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