Tabellen vergleichen und Wert ergänzen

[thecrazykaktus]

Hallo Leute,

vielleicht kann mir jemand helfen. Ich habe 2 Tabellen. Tabelle "SAA_List" und Tabelle "Source".
In beiden Tabellen ist in Spalte A jeweils die ID eingetragen.

Nun mein Problem bzw hier benötige ich eine Lösung.

Ich würde gerne beide Tabellen mit Hilfe von VBA vergleichen und prüfen ob in der Tabelle "SAA_List" IDs fehlen, die in der Tabelle "Source" vorhanden sind. Wenn IDs in der SAA_List fehlen sollen diese automatisch in Spalte A ergänzt werden.

Kann mir hier jemand helfen?

Bonus wäre noch wenn die ergänzten IDs farblich markiert werden würden :)

Danke.

Themen zusammengeführt
Moderator [Bild: Ameise.gif]

[thecrazykaktus]

Hallo,

ich ich würde gerne mithilfe von VBA ein Problem Lösen.
Ich habe 2 Tabellen. Tabelle 1: SAA_List, Tabelle 2: Source List

In beiden Tabellen stehen in Spalte A "IDs". In der Source Tabelle stehen die Ausgangswerte.

Nun möchte ich gerne mithilfe von VBA prüfen, welche "IDs" in der "SAA_List" fehlen und diese automatisch ergänzen lassen.
Schön wäre es noch wenn die ergänzten Werte farblich hervorgehoben werden.

Kann mir hier jemand helfen?

Themen zusammengeführt
Moderator [Bild: Ameise.gif]

[Gast 123]

Hallo,

das Thema ist im Prinzip ein alter Hut, dafür gibt es viele Lösungen, auch im Archiv. Mit Bilder kann ich nichts anfangen, brauchte eine Beispieldatei mit Beispieldaten. Die Tabellen Namen, Spalten und Zeilen sollten wie im Original sein. Dann kann man dafür ein Makor schreiben. Aber ich müsste schon wissen welche Spalten verglichen werden müssen, und wo ggf. das Ergebnis hin kopiert werden soll. Rein "ins blaue raten" kann man nicht arbeiten.

mfg  Gast 123

[thecrazykaktus]

Hier mal die datei

[IchBinIch]

Hi,

eine Trockenübung:
Keep fingers crossed  :19:!

Sub FehlendeIDKopieren()

' ID ohne Zuordnung werden aus der Tabelle Source in die Tabelle SAA kopiert 



Dim z As Long

Dim zm As Long

Dim zz As Long



'Ermittlung der ersten freien Zeile in der Zieltabelle.Voraussetzung: keine Leerzeilen. Sonst ".Cells(Rows.Count, 1).End(XlUp).row" verwenden 

With Sheets("SAA_List")

    zz = 1

    zm = .UsedRange.Rows.Count

    zz = zm + 1

End With



'Festlegen der Verarbeitungstabelle 

With Sheets("Source")



    'Auffinden der letzten verwendeten Zeile in "Source". Voraussetzung: keine Leerzeilen (s.o.) 

    zm = .UsedRange.Rows.Count

    

    'Aufsetzen der Schleife. Voraussetzung: Tabelle hat Überschriften. Sonst z = 1 

    For z = 2 To zm



        'Alle Sätze, die nicht in SAA-List vorkommen aus Source übertragen 

        If WorksheetFunction.CountIf(Sheets("SAA_List").Range("A:A"), .Range("A" & z).Value) = 0 Then

            Sheets("SAA_List").Cells(zz, 1).Value = .Cells(z, 1).Value

            zz = zz + 1

        End If

        

    Next z



End With



End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß
Ich

Trockenübungen verursachen mehrfache Korrekturen :32: :22: :21:

[steve1da]

Hola,

zur Info...

http://ms-office-forum.net/forum/showthr...p?t=335764

Gruß,
steve1da

[IchBinIch]

Hallo Detlef,

Danke für die Info :32:.
"Ihr" habt mich exklusiv. Von daher bin ich blind auf dem anderen Auge.

Gruß
Markus