hallo, Bella,

mit folgendem Marko können die Anzahl eines Artikels gesummt. Die Ergebnisse werden in Spalte "G" und "H" ausgegeben. Du kannst die Code (fette Schrift)  in VBA Editor (Alt + F11 um Editor zu öffnen) deiner Excel-Applikation hin kopieren, danach drückst du F5, das MArko zu laufen.

viel glük

Option Explicit

Sub sum_artikel()

           '''''''''''''''''''''''''''''''''''''''''''''''''
           Dim artikel_col As String
           Dim anzahl_col As String
           artikel_col = "A"
           anzahl_col = "B"
           
           
            Dim start_row As Long
            start_row = 2
            Dim end_row As Long
            end_row = Range("A65536").End(xlUp).Row
            '''''''''''''''''''''''''''''''''''''''''''''''''
           
            Dim i As Long
            Dim current_sum As Long
           
            For i = start_row To end_row
                If Len(Range(artikel_col & i).Value) > 0 And _
                    Len(Range(anzahl_col & i).Value) > 0 Then
                       
                        add_in_result_col Trim(Range(artikel_col & i).Value), Range(anzahl_col & i).Value
           
                End If
            Next i
           
End Sub

Sub add_in_result_col(artikel_nr As String, cnt As String)
   
      '''''''''''''''''''''''''''''''''''''''''''''''''
       Dim gefunden As Boolean
       Dim start_row As Long
        start_row = 2
     
        Dim new_artikel_col As String
        Dim new_anzahl_col As String
        new_artikel_col = "G"
        new_anzahl_col = "H"
           
        Dim new_end_row As Long
        new_end_row = Range("G65536").End(xlUp).Row
        '''''''''''''''''''''''''''''''''''''''''''''''''
       
        Dim i As Long
       
        If new_end_row <= 1 Then
            Range(new_artikel_col & start_row).Value = artikel_nr
            Range(new_anzahl_col & start_row).Value = cnt
            Exit Sub
        End If
       
        For i = start_row To new_end_row
            If Range(new_artikel_col & i).Value = artikel_nr Then
                Range(new_anzahl_col & i).Value = Range(new_anzahl_col & i).Value + CLng(cnt)
                gefunden = True
            End If
        Next i
       
         If Not gefunden Then
                Range(new_artikel_col & new_end_row + 1).Value = artikel_nr
                Range(new_anzahl_col & new_end_row + 1).Value = cnt
        End If
End Sub