Microsoft Excel

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