Gruppe
Allgemein
Problem
Es soll überprüft werden, ob die jeweiligen Artikel aus Spalte A in Tabelle 2 vorhanden sind. Wenn ja, ist die Stückzahl zu addieren, wenn nein, ist der Artikel mit der Stückzahl einzutragen. Die Reihenfolge ist ohne Relevanz.
StandardModule: Modul1
Sub Addieren()
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer
Set wks = Worksheets("Tabelle2")
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
vRow = Application.Match(Cells(iRow, 1).Value, wks.Columns(1), 0)
If IsError(vRow) Then
vRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
wks.Cells(vRow, 1).Value = Cells(iRow, 1).Value
End If
wks.Cells(vRow, 2).Value = wks.Cells(vRow, 2).Value + Cells(iRow, 2).Value
iRow = iRow + 1
Loop
End Sub