Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikel bei Nichtvorhandensein eintragen, sonst addieren

Gruppe

Suchen

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.


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