VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Artikel bei Nichtvorhandensein eintragen, sonst addieren

Gruppe

Allgemein

Bereich

Suchen

Thema

Artikel bei Nichtvorhandensein eintragen, sonst addieren

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

    


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