Liebe Wissende,
Gegeben ist eine Stammliste und eine monatlich erscheinende Aktuaslisierungsliste in gleicher Formatierung. (Aktualisierungsliste enthält alle Altdaten zuzügl. Neudaten)
Frage:
Wie kann der Inhalt der Aktualisierungsliste automatisiert in die Stammliste übertragen werden - undzwar ohne Berücksichtigung der schon in der Stammliste enthaltenen Altdaten - also nur NEUES
Für Eure Hilfe bin ich wie immer dankbar.
Gruß
Uwe
Hallo, Uwe!
Hmmm. so was ähnliches hatte ich auch. Daher die Frage:
Gegeben ist eine Stammliste und eine monatlich erscheinende
Aktuaslisierungsliste in gleicher Formatierung.
(Aktualisierungsliste enthält alle Altdaten zuzügl. Neudaten)
Frage:
Wie kann der Inhalt der Aktualisierungsliste automatisiert in
die Stammliste übertragen werden - undzwar ohne
Berücksichtigung der schon in der Stammliste enthaltenen
Altdaten - also nur NEUES
Was soll dann in der Stammliste stehen? Der Altbestand plus die neuen? Dann wäre das aber doch genau der Inhalt Deiner „Aktualisierungsliste“. So war’s bei mir nämlich auch - also einfach monatlich die alte Liste mit der neuen überschreiben.
Gruß, Manfred
Hallo Manfred,
nee Du - so einfach ist es leider nicht. Die Stammliste wird permanent mit Daten gefüllt - die dann natürlich in der Aktualisierungsliste nicht enthalten sind. Das ist es ja gerade…
In der Aktualisierungsliste sind neue datensätze enthalten, die im weiteren verlauf so wie die alten datensätze mit Daten gefüllt werden.
Jetzt importiere ich alle Daten aus der Aktualisierungsliste - habe dann natürlich massenhaft Doppelungen, die ich dann mühselig händisch löschen muss…
Gruß
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Gegeben ist eine Stammliste und eine monatlich erscheinende
Aktuaslisierungsliste in gleicher Formatierung.
(Aktualisierungsliste enthält alle Altdaten zuzügl. Neudaten)
Frage:
Wie kann der Inhalt der Aktualisierungsliste automatisiert in
die Stammliste übertragen werden - undzwar ohne
Berücksichtigung der schon in der Stammliste enthaltenen
Altdaten - also nur NEUES
Hi Uwe,
wodran könnte denn ein Makro erkennen daß es sich um neue Daten handelt, neue Artikelnummer in Spalte A oder sowas?
Gruß
Reinhard
genau Reinhard (grüß Dich),
in Spalte A stehen Standortnummern. Die sind immer einmalig - nie doppelt.
Die Aktualisierungsliste enthält gegenüber der Stammliste zusätzlich neue Standortnummern und schon einige Grunddaten dazu (Adresse, u.s.w.). Was sie nicht enthält, sind die Daten, die in der Zeit zwischen den Aktualisierungsupdates in der Stammliste neu eingepflegt wurden.
Danke und
Gruß
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
in Spalte A stehen Standortnummern. Die sind immer einmalig -
nie doppelt.
Die Aktualisierungsliste enthält gegenüber der Stammliste
zusätzlich neue Standortnummern und schon einige Grunddaten
dazu (Adresse, u.s.w.). Was sie nicht enthält, sind die Daten,
die in der Zeit zwischen den Aktualisierungsupdates in der
Stammliste neu eingepflegt wurden.
Hallo Uwe,
bin mir grad unsicher ob ich nicht genau falschrum kopiere, macht aber nix, kannst du ja beim Anpassen der Blattnamen korrigieren.
Derzeit werden Zeilen nach wksStamm kopiert wenn der Wert in A von wksMonat nicht in der Spalte A von wksstamm steht.
Gruß
Reinhard
In Modul1:
Option Explicit
'
Sub vergleich()
Dim wksMonat As Worksheet, wksStamm As Worksheet, ZeiMonat As Long, ZeiStamm As Long
Set wksStamm = Worksheets("Tabelle1")
Set wksMonat = Worksheets("Tabelle2")
ZeiStamm = wksStamm.Range("A" & Rows.Count).End(xlUp).Row
With wksMonat
' 2 wegen evtl. Überschrift in A
For ZeiMonat = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Cells(ZeiMonat, 1) "" Then
If Application.WorksheetFunction.CountIf(wksStamm.Columns(1), .Cells(ZeiMonat, 1)) = 0 Then
ZeiStamm = ZeiStamm + 1
.Cells(ZeiMonat, 1).EntireRow.Copy Destination:=wksStamm.Cells(ZeiStamm, 1)
End If
End If
Next ZeiMonat
End With
End Sub
Prima Reinhard,
Habs ein wenig angepasst - und funktioniert hervorragend.
Besten Dank und
Gruß
Uwe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]