Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblatt überprüfen und kopieren

Arbeitsblatt überprüfen und kopieren
24.04.2020 14:59:54
Markus
Hallo zusammen,
ich möchte gerne, dass die Daten aus dem Arbeitsblatt "export" überprüft werden mit den Daten aus dem Arbeitsblatt "Mastertabelle"
Wenn die Artikelnummer bereits vorhanden ist, soll nichts kopiert werden ansonsten die ganze Zeile unter die letzte Zeile von der Mastertabelle.
Link für die Datei
https://www.herber.de/bbs/user/137006.xlsx
Arbeitsblatt "Mastertabelle"
Artikelnummer Bezeichnung Preis Bemerkung
111111 aaaaa 1 € text1
222222 bbbb 2 € text2
333333 ccccc 3 € text3
444444 dddd 4 € text4
Arbeitsblatt "Export"
Artikelnummer Bezeichnung Preis
222222 bbbb 2 €
444444 dddd 4 €
666666 ffff 6 €
777777 gggg 7 €
88888 hhhh 8 €
Für eine Hilfe wäre ich sehr dankbar
Liebe Grüße
Markus

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt überprüfen und kopieren
24.04.2020 15:46:38
ChrisL
Hi Markus
z.B.
Sub t()
Dim WS1 As Worksheet: Set WS1 = Worksheets("export")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Mastertabelle")
Application.ScreenUpdating = False
WS1.Range("A2:C" & WS1.Cells(Rows.Count, 1).End(xlUp).Row).Copy _
WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
WS2.Range("A:D").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
cu
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige