Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellen mit doppelten Einträgen

Tabellen mit doppelten Einträgen
Hannes
Guten Tag!
ich würde bitte eure hilfe benötigen:
Problemstellung:
In Mappe1 befindet sich eine Tabelle1 mit den laufenden Werten
In Mappe2 gibt es ebenfalls eine Tabelle2
Ziel:
Es sollten nur die Werte aus Tabelle2, die nicht auch in Tabelle1 vorkommen, an Tabelle1 angehängt werden. d.h. kommt die Artikelnummer 123 in Tabelle2 Spalte1 auch in Tabelle1 Spalte1 vor, soll die gesamte Zeile1 aus Tabelle2 nicht angehängt werden. ist die Nummer aus Spalte1 nicht auch in Tabelle1 Spalte1 enthalten, dann soll die Zeile1 aus Tabelle2 an Tabelle1 angehängt werden.

Vielleicht weiss da jemand rat?
Vielen Dank
mfg
Hannes
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellen mit doppelten Einträgen
22.04.2004 19:48:02
Beni
Hallo Hannes,
Gruss Beni

Sub Tabellen_mit_doppelten_Einträgen()
Windows("Mappe2.xls").Activate
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = Workbooks("Mappe1").Worksheets("Tabelle1")
Set WS2 = Workbooks("Mappe2").Worksheets("Tabelle2")
For r = 1 To Cells(65536, 1).End(xlUp).Row
Wert = Cells(r, 1)
With WS1.Columns(1)
z = .Cells(65536, 1).End(xlUp).Row + 1
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
s = Cells(r, 255).End(xlToLeft).Column
Range(Cells(r, 1), Cells(r, s)).Copy Destination:=WS1.Cells(z, 1)
End If
End With
Next r
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige