Spalte in Tabelle finden und Subtrahieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hey Ulf,
es tut mir leid. Ich glaube, ich habe deine vorherige Nachricht etwas falsch verstanden. Das Ergebnis ist zwar super, dass ich das dort nur so eintragen muss, das funktioniert auch alles hervorragend. Aber eigentlich bräuchte ich es nur, sodass ich im Makro, also im Code diese Werte eingebe bzw. oder dort anpassen kann. Weil wie gesagt, ich möchte, das Ganze in ein anderes Dokument übertragen, wo es mehrere solcher Tabellen gibt. Das würde ja dann eben auch bedeuten, dass ich viele von diesen Eingabeblättern benötige. Deshalb wäre es für mich einfacher, wenn ich diese Konfigurationen bzw. Werte einfach nur im Code abändern müsste (Blatt, Tabelle, Identifikation, Werte). So kann ich ihn dann einfach kopieren und eventuell an mehreren Stellen nutzen.
Wäre super, wenn sich das noch irgendwie lösen lässt. Ansonsten danke ich dir aber schonmal sehr für deine Unterstützung!
Grüße Nils.

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

Beliebteste Forumthreads (12 Monate)

Spalte in Tabelle finden und Subtrahieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte in Tabelle finden und Subtrahieren

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread