VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte zu Zieladressen übertragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren