Spalte in Tabelle finden und Subtrahieren

Nils · 2023-09-13T18:31:08+00:00

Hallo, Ich habe da ein Problem und bekomme es leider nicht hin. Und zwar möchte ich mit einem Klick auf einen Button, dass alle Werte in der Tabelle Spalte Werte mit dem dazugehörigen Suchkriterium aus der Spalte Produkte im Tabellenblatt 2 (Spalte: Werte) gesucht werden und subtrahiert werden. Ich hoffe, ich habe es halbwegs verständlich formuliert. Zum besseren Verständnis habe ich noch eine Beispieldatei angehängt. https://www.herber.de/bbs/user/162829.xlsx Ich wäre sehr dankbar, wenn mir jemand bei dem Problem helfen kann. Im Voraus schonmal vielen Dank!

hallo zusammen,

wenn ich das richtig sehe, gibt es die zusätzliche Schwierigkeit, dass einige Produkt in Start nicht in Ziel sind.

Hier eine Lösung per Power Query, siehe Blatt Ergebnis. Rechtsklick auf die Tabelle dort und "aktualisieren".
https://www.herber.de/bbs/user/162838.xlsx

wenn es unbedingt VBA sein muss, würde ich mit Dictionary arbeiten. So lässt sich auf einer eindeutige Schlüssel am besten summieren/substrahieren:
(Ausgabe hier auch separat)

Public Sub schleife()

Dim Dic

Dim LR As ListRow

Dim K

    

    Set Dic = CreateObject("Scripting.Dictionary")

'Start-Wert substrahierend sammlen

    For Each LR In ThisWorkbook.Worksheets("Start").ListObjects("Tabelle2").ListRows

        Dic(LR.Range(1).Text) = Dic(LR.Range(1).Text) - LR.Range(5)

    Next

'Ziel-Wert addierend sammlen

    For Each LR In ThisWorkbook.Worksheets("Ziel").ListObjects("Tabelle1").ListRows

        Dic(LR.Range(1).Text) = Dic(LR.Range(1).Text) + LR.Range(8)

    Next

'Ausgeben (in Spalten P, Q)

    For Each K In Dic.keys

        With ThisWorkbook.Worksheets("Ziel").Cells(Rows.Count, "P").End(xlUp)

            .Offset(1, 0) = K

            .Offset(1, 1) = Dic(K)

        End With

    Next

    Set Dic = Nothing

End Sub

VG
Yal

Hi Nils,
ich verstehe gar nicht worauf du hinaus willst. Mit dieser Datei kannst du jede beliebige andere oder 2 miteinander abgleichen. Wo ist der Vorteil funktionierenden Code identisch mehrfach zu verteilen, um ihn fehleranfälliger werden zu lassen ? Führ das Makro da aus, wo es nötig ist und verteil die Datei, benenn sie anders usw.
Der Part Einlesen



Public Function KonfigLesen()

    On Local Error GoTo KonfigLesenERR

    Dim bOK As Boolean

    strDateiQuelle = "QUELLDATEI.xlsx" '.Cells(1, 1).Value

    strDateiZiel = "ZIELDATEI.xlsx" '.Cells(1, 2).Value 'kann auch die QUELLDATEI sein vice versa

    strBlattQuelle = "NEU" '.Cells(2, 1).Value

    strBlattZiel = "ALT" '.Cells(2, 2).Value

    strTabelleQuelle = "QUELLTABELLE" '.Cells(3, 1).Value

    strTabelleZiel = "ZIELTABELLE" '.Cells(3, 2).Value

    lngIdentifikationQuelle = 1 '.Cells(4, 1).Value

    lngIdentifikationZiel = 1 '.Cells(4, 2).Value

    lngWerteQuelle = 5 '.Cells(5, 1).Value

    lngWerteZiel = 8 '.Cells(5, 2).Value

    Set wbQuelle = Workbooks(strDateiQuelle)

    Set wbZiel = Workbooks(strDateiZiel)

    Set wsQuelle = wbQuelle.Worksheets(strBlattQuelle)

    Set wsZiel = wbZiel.Worksheets(strBlattZiel)

    Set lObjQuelle = wsQuelle.ListObjects(strTabelleQuelle)

    Set lObjZiel = wsZiel.ListObjects(strTabelleZiel)

    bOK = True

KonfigLesenOUT:

    KonfigLesen = bOK

    Exit Function

KonfigLesenERR:

    bInProgress = False

    bOK = False

    Resume KonfigLesenOUT

End Function

ist doch seeeehr einfach zu ändern.
hth
Ulf

Spalte in Tabelle finden und Subtrahieren

Forumthread: Spalte in Tabelle finden und Subtrahieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Spalte in Tabelle finden und Subtrahieren

Forumthread: Spalte in Tabelle finden und Subtrahieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread