|
Hallo zusammen,
Ich brauche Unterstützung bezüglich eines VBA Codes für folgende Aufgabe. Es gibt eine Tabelle 1 in der Materialnummern gespeichert sind und in der 2.Spalte die vorhandene Größe (als Text). Diese Liste muss einmal wöchentlich aktualisiert werden (Datenabgleich) mit z.B. den Daten aus Tabelle 2.
Dabei kann es vorkommen, dass ganz neue Materialnummern oder zu vorhandener Materialnummern einzelne Größen hinzukommen aus Tabelle 2. Diese sollten dann eingefügt werden mit samt dem Rest der Zeile in Tabelle 1 und in der Spalte E "im Lager vorhanden"sollte "neu" stehen.
Auch kann es sein, dass Materialnummern oder Materialnummern+Größe in die in Tabelle 1 vorkommen, nicht aber in Tabelle 2- In dem Fall sollte in der Spalte E stehen: "nicht vorhanden". Die Daten in Tabelle 1 sollten also auf keinen Fall gelöscht oder überschrieben werden.
Wichtig wäre, dass die Daten in Tabelle 1 nicht einfach überschrieben werden, da in Spalte F und folgende schon Kommentare hinterlegt worden sind die stehen bleiben sollen.
Geht das über einen Abgleich (Loop) und If-Then-Else? Wäre super, wenn mir hier jemand bezüglich des Codes helfen könnte.
mfg
Babsi
Hier die Beispiel Tabelle1:
|
Artikelname |
Größe |
Material |
Lieferant |
im Lager vorhanden |
Kommentare |
|
5024850 |
20a |
Kupfer |
a |
|
sfsv |
|
5024840 |
30a |
Poly |
b |
|
vfsvs |
|
5024750 |
40d |
Kupfer |
b |
|
sFVs |
|
5024846 |
50d |
Poly |
c |
|
SVFsv |
|
5024796 |
30d |
Poly |
d |
|
SVDsdv |
|
5024796 |
20a |
Poly |
d |
|
SDVsdv |
|
5024796 |
30a |
Poly |
d |
|
SVDsdv |
|
5024796 |
40d |
Poly |
d |
|
SDVsdv |
|
5024796 |
50d |
Poly |
d |
|
SDVsdv |
Tabelle2:
|
Artikelname |
Größe |
Material |
Lieferant |
|
|
5024850 |
30a |
Kupfer |
a |
|
|
5024840 |
30a |
Poly |
b |
|
|
5024840 |
40a |
Poly |
b |
|
|
5024750 |
40d |
Kupfer |
b |
|
|
5024846 |
50d |
Poly |
c |
|
|
5024796 |
30d |
Poly |
d |
|
|
5024796 |
20a |
Poly |
d |
|
|
5024796 |
30a |
Poly |
d |
|
|
5024796 |
40d |
Poly |
d |
|
|
5024796 |
50d |
Poly |
d |
|
|
5024796 |
70d |
Poly |
d |
|
|
5024796 |
80d |
Poly |
d |
|
|
5024796 |
90d |
Poly |
d |
|
|
5055555 |
10a |
Metall |
e |
|
so sollte es die Tabelle 1 dann nach dem Abgleich nach Möglichkeit aussehen
|
Artikelname |
Größe |
Material |
Lieferant |
im Lager vorhanden |
Kommentare |
|
5024850 |
20a |
Kupfer |
a |
nicht vorhanden |
sfsv |
|
5024850 |
30a |
Kupfer |
a |
neu |
|
|
5024840 |
30a |
Poly |
b |
|
vfsvs |
|
5024840 |
40a |
Poly |
b |
neu |
|
|
5024750 |
40d |
Kupfer |
b |
|
sFVs |
|
5024846 |
50d |
Poly |
c |
|
SVFsv |
|
5024796 |
30d |
Poly |
d |
|
SVDsdv |
|
5024796 |
20a |
Poly |
d |
|
SDVsdv |
|
5024796 |
30a |
Poly |
d |
|
SVDsdv |
|
5024796 |
40d |
Poly |
d |
|
SDVsdv |
|
5024796 |
50d |
Poly |
d |
|
SDVsdv |
|
5024796 |
70d |
Poly |
d |
neu |
|
|
5024796 |
80d |
Poly |
d |
neu |
|
|
5024796 |
90d |
Poly |
d |
neu |
|
|
5055555 |
10a |
Metall |
e |
neu |
|
|